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ABSTRACT 


Traditional Database Management Systems (DBMS) are capable of managing only 
alphanumeric data. The Multimedia Database Management System (MDBMS) prototype 
started at the Computer Science Department of Naval Postgraduate School in 1988 made 
it possible to capture, store, manage, retrieve and present different media information such 
as image and sound by using the current, modern computer technology. In the existing 
MDBMS, if a query references only formatted data, it is passed to Ingres directly, but, 
if a query includes media data, then the query is decomposed into multiple subqueries 
each of which must be individually processed, and the intermediate results of which must 
be recomposed to form the final result to be given to the user. This thesis will concentrate 
on complex queries involving nesting conditions and multiple selections which are not 


supported by the existing MDBMS prototype. 
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I. INTRODUCTION 


A. BACKGROUND 

Multimedia database management systems (MDBMS) manage multimedia data such 
as image data and sound data in addition to formatted data. Multimedia database 
management systems are currently attracting a lot of attention because of the demands of 
the new applications and the advances of the technology, making it possible to capture 
and store multimedia data in computers. Multimedia data broadens the communication 
between the computer system and the user. Many applications, military, publishing, or 
instructional, routinely need multimedia data. Although the cost of the hardware required 
to handle multimedia data is decreasing rapidly, the software needed to manage such 
multimedia data is lacking or does not match the needs. 

Studies on multimedia database management systems started in Computer Science 
Department of Naval Postgraduate School in 1988. Besides storing, managing and 
retrieving different media information, the MDBMS prototype also manages the 
interrelationships between formatted and media data. Text, graphics, images, sound, 
signals and video are the elements of multimedia data. What is common about them is 
that they all require rather large storage space and consist of a large and varying number 
of small items, like characters, pixels, lines or frequency indicators stored together in 
some way to form a unit. They all have a more complicated structure than formatted data, 


and require the use of Abstract Data Type (ADT) concept. With this approach, image, 


sound, signal, text and graphic data will be treated as new data types. Any attribute of an 
object can have one of these types. Currently can use the database operations, create, 
retrieve, modify and delete, on these new media data "values". 

In our current prototype system we use separate files to store the media objects 
because of their high storage requirement. A media object is the value of a media 
attribute. An image, for example, is a media object, but it is also the value of the attribute 
picture, just like "John" being the value of the attribute name in an Employee relation. 

The main task of MDBMS is storage and retrieval, but not processing of data. The 
storage and retrieval of multimedia data should be done by the content of the data, but 
handling content search is a difficult problem, since it is not possible to use the methods 
currently done on formatted data structures. 

Since automatic recognition of the contents of media data by the computer is not 
possible using today's technology, the decision was made in the MDBMS project to use 
natural language descriptions to specify the contents of media data. A Prolog parser was 
constructed to understand the meaning of the natural language captions describing the 
content of the media data. When the user makes a query related to multimedia data, the 
PARSER recognizes syntax and semantics of the natural language description and 
interacts with the MDBMS to locate the appropriate data items [REF6]. 

INGRES is used to store and manage the data. However, many of the tables are 
transparent to the users. For example when the user wants to create a table which includes 
media data using a SQL statement, the system creates a separate table for each media 


attribute in addition to the tables for formatted data. 


В. RELATED WORK 

Besides the MDBMS Project at Naval Postgraduate School, there are a number of 
researches going on in multimedia data processing around the world. Among those, the 
MINOS system [REF4] developed by a team at the University of Toronto manages highly 
structured multimedia objects that consists of attributes as well as the text, image and 
voice part. Sophisticated browsing and user interface features allow the browsing of the 
schema as well as synchronized updates. The MCC Database program [REF15, REF16] 
also undertook several multimedia projects by establishing the database requirements of 
multimedia applications. They identified requirements for a data model and for the sharing 
and manipulation of multimedia data. An O-O database management system named 
ORION has been developed at MCC in Austin/Texas, which contains a Multimedia 
Information Manager (MIM) for processing multimedia data [REF14]. The IBM Tokyo 
Research Laboratory has developed two "mixed-object database systems", which are 
named as MODES1 and MODES2 [REFS]. In Europe there is an ESPRIT project 
designing a multimedia filing system called MULTOS [REF2, REF3]. 

Recently multimedia management in the personal computers becomes available by 
using hypertext and hypermedia. The concept of hypertext is very old; it has been 
transferred to computer systems since 1960’s. Originally intended to manage arbitrarily 
linked text segments, it has been extended to manage images and sound, and has become 
"Hypermedia" [REF7]. The hypertext and hypermedia data management in the Macintosh 
computer with a hypercard application has many users, including the ARGOS project 


being developed at Naval Postgraduate Schoo] [REF13]. The hypertext and hypermedia 


data management uses the hierarchical data structure approach, in which users cannot 
query the data as done in the conventional DBMSs, but have to follow the hierarchical 
tree structure to process a media. As a result, the users might easily get lost during a 
process. Additionally, hypertext requires an interpreter to process the user commands. 
Furthermore, the hypertext and hypermedia data cannot be accessed by other users, as in 
the database systems, because they are designed to work only on personal computers in 
the single user environment. MDBMS, which is a DBMS introduced in [REF6] with the 
extended capability to process the multimedia data, was designed to overcome the 


restrictions and disadvantages of hypertext and hypermedia systems. 


C. THE SCOPE OF THE THESIS 

The overall design of the MDBMS prototype was a team effort and is given in the 
thesis by Wuttipong Pongsuwan [REF10], Yavuz Atila [REF1] and Su-Cheng Pei [REF8] 
but different parts appear on different levels of details. In [REF10] the retrieval process 
is given, in [REF1] the management of sound data is described, and in [REF8] table 
creation and data insertion is given. Modify, delete, graphical user interface design is 
given in the accompanying thesis [REF12] and [REF9]. 

An important aspect of an MDBMS is the retrieval process. In the existing MDBMS 
prototype, if a query references only formatted data, it is passed to INGRES directly, but, 
if a query includes media data then the query is decomposed into multiple subqueries. 
Each of the subqueries is individually processed, and the intermediate results are 


recomposed to form the final result to be given to the user. However, the early prototype 


version did not support complex queries. This thesis will concentrate on complex queries 
such as nesting conditions and multiple selections. 

This thesis is organized in six chapters and three appendices. The next chapter, 
Chapter II, gives a survey of previous work done in the MDBMS project. Chapter III 
reports the modularization of the MDBMS prototype program code. Chapter IV will give 
the design for complex query processing. Chapter V will present the implementation of 
complex query processing. Chapter VI will give the conclusion and summary along with 
a brief statement of other work planned or in progress. Appendix A will present a 
comprehensive example for the retrieval process using complex queries. Appendix B will 
give the generation of embedded SOL code for complex queries, and finally Appendix 


C will present the program code. 


Il. SURVEY OF PREVIOUS WORK 

As mentioned in the previous chapter, multimedia data consists of media data such 
as image, text, voice, signals, etc. in addition to formatted data. A multimedia database 
management system (MDBMS) is defined as a system that manages all multimedia data 
and provide mechanisms to handle concurrency, consistency, and recovery in addition to 
providing a query language and query processing. In this chapter we present the data 
organization for multimedia objects, integration of conventional and multimedia data, 
architecture of the MDBMS prototype, natural language understanding capabilities in the 
parser which are required for the content retrieval of multimedia data, and finally the 


retrieval component of the prototype implemented so far. 


A. DATA ORGANIZATION FOR MULTIMEDIA OBJECTS 

Despite differences in data model and implementation aspects, all research projects 
have decided to organize multimedia data using the ADT concept. This is generally 
accepted as an adequate approach. However, none of the projects have addressed the 
problem of content retrieval of multimedia data. 

The fundamental difficulty in handling multimedia data is intrinsically tied to a very 
rich semantics. To illustrate such a difficulty, let us look at an image of ships. Given such 
a picture, how are we to know what type of ships are in the picture. In other words, are 


the ships destroyers, cruisers, submarines or passenger ships? As another example, let us 


Suppose that we have a picture of soldiers. How do we know that the soldiers are fighting 
in a war or they are performing an exercise? 

To answer queries posed on images, for example, a person must draw from a very 
rich experience encountered in life to derive a good answer. One must have a 
sophisticated technique to analyze the contents of the images to get the semantics of 
different things in the images. Today’s technology does not allow systems to have this 
kind of capability to answer multimedia queries. However, we can use both Artificial 
Intelligence (AI) and Information Retrieval (IR) technology to do the next best thing. We 
can abstract the contents of the multimedia data into words or text and use the text 
description equivalent of the original multimedia data to match the user query. This is the 
principle used in the design of the MDBMS prototype to handle multimedia data for 
different applications. Figure 2.1 shows the format of image data and Figure 2.2 shows 
the format of sound data; both of them consist of the registration, raw and description 
data. 

Raw data is the bit string representation of the image, sound, signal, etc. obtained 
from scanning or digitizing the original multimedia data. Registration data generally 
enhances the information about raw data and is not redundant. Description data describes 
the contents of the multimedia data and cannot be automatically derived by the computer 
with today’s technology. The description data for multimedia data is to be supplied by 


uSers. 


Registration data 


Height, Width, Depth, Colormap.... 


Raw data 


Matrix of pixels 


Description Data 
green eyes, black hair, tall person,... 





Figure 2.1 Structure of an Image Object 


SOUND 


Registration data 
size duration 


sample rate resolution 
encoding 


Description data 
strong voice, talk fast ... 





Figure 2.2 Structure of a Sound Object 


B. INTEGRATION OF CONVENTIONAL AND MULTIMEDIA DBMS 

The relational model has been selected as a basis to design and build the MDBMS 
prototype since the relational model is well known and widely used and has a firm 
theoretical basis. 

When a relation has an attribute with a media type (i.e., data type of the attribute: 
sound or image), then an additional relation, called media relation, has to be created for 
storing registration and description data as shown in Figure 2.3. For each attribute with 


media data type a separate media relation is created. 


OBJECT 


ea] | ro] var 


PHOTO 


ша ыы S 


VOICE 
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Figure 2.3. Schema for Modeling Relationship between Standard 
Objects and Media Objects 
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In Figure 2.3 the relation called OBJECT has the media attributes photo and voice 
in addition to other attributes with conventional data types. For the photo attribute a 
media relation is created and named after its attribute name, namely PHOTO. The 
PHOTO relation has 1_id as the table key linking the PHOTO relation to the OBJECT 
relation. It also has the attributes file_id with the path to the file where the raw data for 
the image object is kept, description which is natural language description of the content 
of the image, and also height, width and depth which constitute the registration data part 
of the image object. In the same way, for the voice attribute of the OBJECT relation 
another media relation called VOICE is created. The VOICE relation has the attributes 
s_id as the table key, file_id showing the path to the file where the raw data for the sound 
object is kept, description describing the content of the sound object and finally size, 
sample_rate, encoding, duration and resolution as the registration data part of the sound 


object. 


C. ARCHITECTURE OF THE MDBMS 

In this section we will present various components of the MDBMS prototype. The 
components of the MDBMS are User Interface, Query Processor, Data Access Subsystem 
and Intelligent Retrieval Subsystem (See Figure 2.4). 

The Data Access Subsystem consists of Conventional Data Manager and Media 
Data Manager and controls the access to the actual data stored in relational and media 


DBMS. The Intelligent Retrieval Subsystem is composed of Parser, Generator, Matcher 
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Data Access Subsystem Intelligent Retrieval Subsystem 


Figure 2.4 Architecture of the MDBMS Prototype 


and Description Manager. The Query Processor accepts queries from the user and 
executes them by calling the other components. When a new description for a media data 
is entered, for example, the query processor calls the parser. The parser uses the 


dictionary to produce first-order predicates and return them to the query processor. The 


query processor, then, hands the predicates over to the description manager which links 
the description to its multimedia data. 

When the query processor receives a query, the first task is to decompose the query 
into subqueries each affecting only conventional or media part but not both. The 
conventional subquery is directly passed to the conventional data manager without any 
modifications. For the text description, the query processor calls the natural language 
parser to obtain the equivalent query predicates. The predicates are then passed to the 
matcher. The matcher tries to match the query with the qualified multimedia data by 
comparing the predicates of the query with that of the stored multimedia data. The 
matcher does this by calling the description manager and using domain knowledge. As 
the solution to the natural language part of a query, the query processor receives links to 
the qualified multimedia data. After combining them with the results of the conventional 
subquery the final results are retrieved by the Data Access Subsystem. 

The conventional data manager, media object manager, description manager, parser, 
matcher and part of the query processor have already been implemented as part of the 


MDBMS prototype [REF6, REF7, REF8]. 


D. NATURAL LANGUAGE UNDERSTANDING IN THE PARSER 
In this section we present the natural language understanding capabilities of the 
parser. In order to accomplish the goal of content retrieval of multimedia data, complete 


understanding of natural language is not necessary. However, a restricted interpretation 
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is necessary and this is done by the parser component using the application dependent 


dictionary as a semantic basis. 


1. Natural Language Description for Multimedia Data 

Retrieval of multimedia data is performed by matching the natural language 
descriptions with the query specifications. We believe that unrestricted natural language 
processing is very difficult to accomplish given the AI technology today. We found that 
the language needed to describe multimedia data is much more formal than everyday 
English. Hence, instead of natural language descriptions, we use captions to describe 
multimedia data. Captions are a natural but special, stylized way of writing descriptions 
with a subset of natural language and not as difficult to parse and interpret as general 
natural language. 

Additionally, for a particular multimedia application the universe of discourse 
is usually quite constrained. Nouns tend to be concrete and most multimedia databases 
emphasize still photographs and other fixed time graphics to which few verbs can be 
applied thereby easing a difficult aspect of natural language processing. The important 
thing is that we use natural language only to access entities in a database making 
complete understanding of all aspects of a word unnecessary. 

2. Dictionary 

Besides the captions themselves, the MDBMS prototype requires auxiliary 

information from a dictionary. The dictionary or lexicon is necessary for parsing and 


gives each possible natural language word its semantic: its part of speech, its grammatical 
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form and the form of literals needed to represent it. Many of the words for example, 
conjunctions and qualifying adjectives are consistent in meaning across a wide range of 
domains; thus we can borrow their interpretation from existing natural language systems 
and include them in every dictionary. The words that significantly change between 
applications are nouns and few verbs, need to be defined for every applications domain 
separately, but mostly their meaning is straightforward. To simplify matching, we try to 
limit the properties and relationships to a small set of primitives, for example we will not 
distinguish between the relationship asserted by the terms ’within’, ‘inside’, part of’, 
containing’, ’including’ and ’compromising’. This can be done without loss because in 
order to achieve efficient retrieval it is not necessary to capture the full meaning of an 
English expression, but just the main intent. 

The dictionary is an important part of the system which is application 
dependent. In order to allow an interpretation of natural language captions it defines the 
domain of each application thus restricting their vocabulary, the semantics and the 


knowledge of the system to apply all the information. 


3. Natural Language Interpretation 
The parser translates the text description into a set of predicates called meaning 
list. The imprecision and ambiguity of the natural language descriptions is reduced 
considerably by transforming them into a set of predicates. These predicates state facts 
about the real world entities involved with multimedia data like their properties and 
relationships. As in most parsing methods, we chose first-order predicate calculus as a 


formal representation of the description data. The parser depends on the dictionary to turn 
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the descriptions into predicates. It is the parser’s task to use the dictionary to resolve 
synonyms and to check the syntactic context to resolve lexical ambiguities. 

Other important features of the parser are the use of supercaptions, a 
generalization of captions, and frames for stereotypical actions, allowing a set of 
predicates to be derived from terms in the description. 

The current implementation of the parser uses augmented-transition network 
parsing and interpretation routines. It is implemented in Quintus Prolog and running on 
a SUN SPARC workstation. The details of the parser and the predicates are beyond the 
scope of this thesis and are given in [REF6, REF11]. 

An example of a natural language description and its translation into an 
equivalent set of predicates using the parser is shown below: 

Description: "A cruiser with long_range missiles" 
Predicates: ship(x), component(x,y), missiles(y), distance(y,long_range) 

Choosing the right set of predicates is a very difficult task which is comparable 
to knowledge acquisition for expert systems. For the purposes of this thesis, it is sufficient 
to assume that the dictionary lists all the words the parser can recognize, all parts of 
speech associated with any word, and the predicates to use when a word appears in a 
description. Thus, the set of all predicates that can be used in the descriptions must be 


defined in the dictionary. 
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Е. RETRIEVAL PROCESS 

Retrieval is the most important operation in a MDBMS. In the existing MDBMS 
only simple SQL selections are implemented. As mentioned earlier, if a user query 
involves only formatted data then it is directly passed to INGRES. However, if a query 
includes media data then it is decomposed into multiple subqueries. Each of the 
subqueries is individually processed, their results are kept in temporary result tables and, 
finally, the results of all subqueries are recomposed to give the final result to the user. 
The existing system [REF10] did not support complex queries such as nesting conditions 
and multiple selections. 

Nesting condition means one or more queries are placed inside another query. The 
inner query is called subquery and the encapsulating one is called outer query. The depth 
of nesting condition may be arbitrary according to the need. 

Multiple selections can be presented in disjunctive normal form by using the 
Boolean operator ’and’ inside each group, and the Boolean operator ’or’ between groups. 
There may be one or more conditions inside each group and there may be one or more 
groups in a query. 

The design and implementation of nesting conditions and multiple selections, which 
have not been supported by the MDBMS prototype so far, will be presented in Chapter 


IV and Chapter V of this thesis in detail. 
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IIL MODULARIZATION 


A. GENERAL 

When the Multimedia Database Management System was growing and the number 
of people working on the system increased, we needed a better way of structuring the 
system. We decided that the best way was to divide the MDBMS program code into 
smaller units and get each person to work on his part separately without interfering with 
other people's parts. In this chapter we will first present the general concepts of 
modularization. Then, we will show how we used the C programming language to 
implement the MDBMS prototype to achieve modularization. Since modularization of the 


MDBMS prototype was a team effort, this chapter will also be included in [REF12]. 


1l. What is Modularization? 

Modularization is the process of structuring programs (i.e. data structures and 
functions) by dividing them into smaller units called modules. A module is a collection 
of related programming language entities (procedures, types, and so on). The different 
modules of a program are in relationship with each other resulting in a module hierarchy. 
Modules on a higher level of the hierarchy use functions or procedures of lower level 


modules. 


2. Why do we need Modularization? 
A program which does not consist of substructures is hard to understand. 


Dividing a program into modules makes it easier to follow. Division of labor among 
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people shortens the time to complete a project. When need arises to change the program 
code, changing one or a few modules will be enough to get the desired result. When a 
new system is to be built, it is possible to reuse modules of a previous system. Testing 
of modules is easier than testing a program code without any structure. In the following 


part we will discuss the advantages of modularization in detail. 


a. Comprehensibility 
A system with no substructure is hard to understand. Years of experience 
shows that modules with high cohesion and low coupling supply designers with easier-to- 
understand systems. High cohesion means that the functions and objects within a module 
are Closely related to each other. Low coupling means that each module interacts with 


some others through a narrow interface. 


b. Division of Labor 
To complete a large task in a reasonable time, it must be divided among 
the people participating the project. This can be done using modules as basic units. Each 
module given to a person of the project should be small enough to be implemented within 
a relatively short period of time. If the implementation of a module would take too long, 


then it is necessary to break it into smaller pieces. 


c. Response to change 
Change is a fundamental characteristic of software systems. Users may 
ask new features or changes to old ones; the system may move to new hardware or a new 


operating system; bugs may be discovered during testing; performance measurements may 
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show bottlenecks. All these changes done to an existing software system cost large 
amounts of money. Modularization makes it easier to do changes. Changing a module, 


instead of changing the whole system gives the desired result. 


d.  Reusability 
When you build a new system, you may need the same functionality that 
you used in a previous system. For instance, a module for string utility functions or I/O 
functions will be useful for many applications. Instead of rewriting these modules, it saves 


much effort if you can reuse modules of a previous system. 


e. Easier to test 

Smaller parts are easier to debug. In a large system each module should 
be tested individually, and large collections of modules should be slowly built up to test 
the whole system. Debugging is the search for defects; it often involves a lot of detective 
work. Testing has much broader scope, and usually assumes you have finished most of 
the debugging. Testing may uncover problems, which may lead to further debugging. 

In addition to these advantages, modularization can be used to achieve 
two basic principles in systems development: information hiding and abstraction ( or 
encapsulation). The principle of information hiding is that each module hides some design 
decision. If the design decision changes, then only the module hiding the design decision 
need to be changed. All other modules using the changed module do not need to be 


changed. Information hiding and abstraction focus on different aspects. Information hiding 


20 


focuses on what to hide; abstraction focuses on what to reveal. Information hiding tries 
to protect you from change; you ask what design decisions might change, and arrange to 
hide them so you cannot depend on them. The sorts of decisions one might hide 
include: 

* The algorithm for carrying out some operation. 

e The representation of some data structures. 

e The details of an interface to an operating system, or to special purpose hardware. 

e The policy for allocating some resource or ordering certain operations. 

Every abstract data type is an information hiding module; however a 
module may not be an abstract data type. A module can also be a set of unrelated 
functions. An abstract data type module provides a collection of procedures for 
manipulating the encapsulated data structure. For example, a module might hide the 
representation of a stack. It would provide operations for pushing elements onto a stack, 
popping elements off the stack, reading the top element of the stack and initializing the 


stack. These four functions are called the interface procedures of the module. 


3. How to modularize 
Now, we need to address how to achieve a modular system. In decomposing 
a System into modules five phases are necessary: 
a. Identify major groups of design decisions, subgroups within those groups, 
and so on. These become the higher levels of the module hierarchy, and chapters, sections 
and so forth of the decomposition document. The decomposition document records the 


division of the system into modules. It is used as a baseline document for detailed design. 
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b. Identify all the major design decisions in your project, and record 
modules that hide them in the decomposition document. These become the leaves of the 
module hierarchy. 

c. Estimate the size of each module. If it seems too large for one person to 
handle, break it into smaller pieces. 

d. The results of the previous phase are separate modules. Now, the 
dependencies between modules need to be specified. A module dependency document 
defines the module dependencies and describes a module hierarchy. Figure 3.1 shows 
how a module hierarchy might look like. A module hierarchy reflects the structure of the 


whole system. Each box represents a module and each line connecting two modules 


Modules 


| 


rm 
Modules 


Figure 3.1. An Example Module Hierarchy 


represent a dependency between modules. For example in Figure 3.1 Module 1 calls 
modules Module 2, Module 3 and Module 4. Module 1 is at the first level of the 
hierarchy while Module 2, Module 3 and Module 4 are at the second level of the module 
hierarchy and so on. 

е. The last phase is to identify for each module the relationship with other 
modules. To make the dependencies between modules, import and export interfaces are 
added to the documentation header of each module. In the import interface of each 
module, functions that are called from other modules are placed. The export interface 
summarizes the functionality provided by a module. In the export interface of each 
module, functions that can be used by other modules take place. Each module in the 


module hierarchy is structured as follows ( Figure 3.2): 


module name 





Figure 3.2 Structure of a Module 


export interface:=export <function 1>,<function2>.... 
import interface:=import <function 1>, <function2>.... 
from module <module 1> 


import «function 1», «function 2»,... 
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from <module 2> 


module body:= implementation of the exported functions by using the 
imported functions (including not exported functions and 


data structures) 


B. MODULARIZATION OF C PROGRAMS 

C programming language (Kernighan and Ritchie C) was chosen to implement 
MDBMS when the studies began on the prototype in 1988. However, C does not support 
modularization. The only thing that can be done is to divide the program code in parts 
and store them in separate files. This allows the user to use separate compilation or the 
include mechanism provided by the C language. 

Files were not designed as mechanism for information hiding and data abstraction. 
They were provided as a facility to support program partitioning and independent 
compilation. Files containing components of a C program (functions, declarations and 
definitions) can be compiled independently. Independently compiled program components, 
along with precompiled library functions, can be linked together to produce a complete 
program. 

Since C files can be compiled independently, it is convenient to partition large C 
programs into smaller and more manageable parts to achieve some advantages of the 
modularization concept. Independent compilation allows files containing C program 


components to be checked separately for syntactic and semantic errors. Moreover, when 
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a program is modified, it is only necessary to recompile the effected components. Тһе 
Unix utility 'make' is used to automate this process. 

C files can be used to partly implement data abstraction and information hiding. An 
abstract data object, as defined in the previous section, is an object that can be 
manipulated using only the operations supplied by the definer of the object. The user 
Cannot directly manipulate the underlying implementation of an abstract data object. 
Details of how an abstract data object is implemented are hidden from the user. Hiding 
the details prevents the user from: 

e making programs dependent on the representation. The representation of an abstract 
data type can be changed without effecting the rest of the program. For example, 
the abstract data type set may be initially implemented as an array, but this 
representation may be changed to an ordered list later on for storage efficiency. 

e accidentally or maliciously violating the integrity of an abstract data type object. 


Integrity of abstract data type objects is preserved by forcing the user to manipulate 
these objects using only the operations provided by the designer of the abstract data 


type. 
Examples of abstract data types are stacks, queues, sets, databases and binary trees. 
However, a C file is not a true data abstraction facility, because it only partially 
supports data abstraction. If you link an independently compiled C module to some other 
parts, you can not prevent the user from accessing all functions and even the internal data 
structures of other modules. 
The other mechanism used to achieve some kind of modularization is the 
include mechanism. Arbitrary files can be textually included in a C program by means 


of the include instruction. The capability to include files textually in a program allows 


common constant, data, type and function declarations and definitions to be kept in 


25 


separate files. These common declarations and definitions can then be used in all parts 


of the program. Keeping common declarations and definitions in separate files and then 


including them in C programs is a popular style used for writing C programs. A common 


example is the standard input/output declaration file stdio.h. 


As mentioned before, although the C language does not support modularization we 


can achieve the following advantages by dividing the existing program code into separate 


parts: 


Programs modules can be developed independently. 

Changes to the program can be done by only changing single modules. 
Clarity of design and structure. 

Program code is easier to understand. 

Maintainability. 

Reusability of modules. 


Uniformity. 


MODULARIZATION OF MDBMS 


As mentioned in the previous section, the C language was chosen to implement the 


MDBMS prototype. When we started to implement the complex query processing, the 


program code was mainly in one file. Considering the size of the program and that 


multiple students are working on three different parts of the project, namely complex 


query processing, graphical user interface, modify and delete, we decided to modularize 


the MDBMS prototype. 
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Before starting the modularization, the module hierarchy of the MDBMS program 
code was as shown in Figure 3.3. First of all we divided the existing program code in 
separate files corresponding to their purpose. Then we divided each part again until we 


obtained the final module hierarchy (Figure 3.4). 





Figure 3.3 Module Hierarchy of MDBMS at the beginning 


The MDBMS module hierarchy now consists of 6 levels. In Figure 3.4, each box 
represents a module. For instance, the module 'MDBMS' which is the main program calls 
the modules 'Catalog Management', 'Create', "Insert", 'Modify', "Delete', Retrieve’ and 
"Connect'. In the diagram the straight lines show the dependencies between modules. 
Although the module "MDBMS’which is at the first level of the hierarchy calls the 
module 'Retrieve' which is at the third level of the hierarchy, the dependency is not 


shown on the diagram in order not to further complicate the module hierarchy diagram. 
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Figure 3.4 Module Hierarchy of MDBMS 
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There is, however, still much to do on modularization. Considering the time we 
needed to complete our part (i.e., complex query processing) we stopped working on 
modularization at this point. 

To make the dependencies between the different parts of the MDBMS program 
visible, we have added import and export interfaces in the documentation header of each 
module (Figure 3.5). 

In the export interface of each module, functions that can be used by other modules 
are placed. The export interface therefore summarizes the functionality provided by a 
module. For example, the function print all table() taking place in the export interface 
of 'Insert' Module can be called by the 'Retrieve' Module. 

In the import interface of each module, functions that are called from other modules 
are mentioned. For instance, the function get sound value() taking place in the import 
interface of 'Insert' Module, is called from the ’User Interface’ Module. 

In addition to our work on modularization, we also used some helpful tools 
provided by the UNIX system, namely sccs, lint, make, and dbx. Sccs is a version 
manager which allows us to have more than version of a file. If you want to try another 
way to implement a module, you can work on it that while you still keep the older 
versions. You can always go back and work on any older version you want. The first 
thing in order to use sccs is to make a directory and call it SCCS. To create the first 
version of any file type "sccs create <filename>" at shell prompt. If you want to keep a 
version and also try something on the same version type "sccs delget «filename»". At this 


point you would have no writable copy of the file. To see how many versions of a file 
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Title : InsertModule.c 
Author : Su Cheng Pei 

Date : November 15, 1990 
History 


Description : This module implements the insertion process 
in the Multimedia Database System. 
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Export Interface : 
print all table() :Prints out the table catalog information on the 
screen. 
insert tuple() :Inserts a tuple of a particular relation. 
display. tuple() :Displays the tuple before insertion. 
check media description():Checks the media description by connecting 
to the parser. 


ql insert tuple()  :Translates SQL statement to insert a standard tuple. 
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Import Interface : 
get sound value() :Gets a sound value of a media attribute from the 
user input. 
clr scr() :Clears the screen. 
yes no answer()  :Gets yes or no answer from the user. 
from Userinterface.c 


check table name():Checks if the table name is duplicate. 

get media name() :Gets media table name by appending table key at 
the end of att name. 
from CreateModule.c 
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Figure 3.5 Export / Import Interface of a Module 


you have, type "sccs prs <filename>". To select a version and have a writable copy of a 
file, type "sccs edit -r«version number» «filename»" (for instance if we want to edit 
version number 1.1.12.4 of the file RetrieveModule.c, we should type "sccs edit -r1.1.12.3 
RetrieveModule.c"). To see which versions of all files are currently being edited, type 


"sccs info" only. These are the main commands for using sccs. 
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The second tool we used was lint. During the compilation of C programs lint helps 
to find: 
* unused arguments, 
е unused variables, 
* variables which are set but not used, 
* inconsistently used function calls, 
* always ignored function returns,... 

We put the lint command in the Makefile so during compilation lint is invoked 
automatically by the Makefile. See Chapter V.C of this thesis to see how lint is used in 
the Makefile. 

The third utility program we used was 'make' which is a command generator. Refer 
to V.C of this thesis to get detailed information about ’make’ and its use. 

The last tool we used was dbx. Dbx is a source-level debugger. It helps find run 
time errors during execution of a program. To run dbx, type "dbx «executable file 
name>". To run the program, type "run". To trace in a function, type "trace in «function 


name». 
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IV. DESIGN OF COMPLEX QUERY PROCESSING 

In Chapter II of this thesis the general architecture of the MDBMS prototype is 
described in detail. Basically, it was an attempt to broaden the database handling 
capability by providing the integrated support of both formatted and media data. The 
design of complex query processing is done based on the architecture presented. However, 
several resource constraints in INGRES, the IBM compatible PC and the SUN 
workstation were found when studies started on the MDBMS and these restrictions 
influenced the design and implementation of the prototype. In this chapter we mention the 
System environment and give a sample application. Further, we present the design of 


complex query processing in detail. 


A. SYSTEM ENVIRONMENT AND SAMPLE APPLICATION 


1. System Environment 
The MDBMS prototype was built on top of INGRES to support formatted and 
multimedia data. INGRES acts as the manager for the data storage. However, INGRES 
has a lot of restrictions: 
* INGRES does not support ADT, the approach selected to support multimedia data. 
e INGRES does not allow its users to get the catalog information readily. 
* Although INGRES supports embedded SQL in host C language, it does not provide 
a set of high level function calls available to the users. For example, the embedded 
SQL statements are pre-compiled into INGRES low level code for execution. It 


does not allow the relation name and attribute name as a program variable in the 
high level embedded SQL code. 
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e INGRES does not support set operations such as UNION, INTERSECTION and 
MINUS (i.e., difference of two tables). UNION and INTERSECTION are of great 
importance to be able to design and implement complex queries. 

Although more recent versions of INGRES have removed some of these 
restrictions, a significant recoding effort would be required for using the new version. 
However, some coding effort had to be done, as we will also mention later in this chapter, 
to extend the capabilities of the INGRES SQL for supporting the set operations UNION, 
INTERSECTION and MINUS. 

In the meantime, a similar situation occurs in the SUN workstation. New SUN 
workstations now support sound, but it would require a substantial investment to purchase 
new hardware and recode the prototype source code. It was decided that instead of these 
investments, the PC would be retained to manage sound data and would be incorporated 
into MDBMS prototype as a backend server by connecting it to the SUN system via a 
local network, i.e., ETHERNET [REF1]. 

Similarly, to capture images, a video card which works with a camcorder is 
installed into another PC. The PC first captures an image in GIF format. This file is then 
transferred to the SUN workstation using FTP (File Transfer Protocol) in binary mode. 
The image files in GIF format are transformed into RASTER format by software before 
they can be used by the MDBMS prototype. À more detailed description of the capturing 
process of the images is described in [REF10]. 

All of these constraints affected the design and implementation of the MDBMS 


prototype. Since the prototype construction is not intended to be a production system at 
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this time, and because the current system is enough to demonstrate the principles, a 


decision was made not to change the structure of the system. 


2. Sample Application 

Many application areas increasingly require a MDBMS to manage both 
formatted and multimedia data. Examples can be found in military, publishing, 
entertainment and instructional environments. In this subsection, we present a sample 
application which can be considered quite typical in a military environment. The goal is 
to give the reader a better understanding in the design and implementation of complex 
queries for multimedia processing. 

Let us assume that the Chief of the Navy has ordered his staff to keep 
information about Navy ships, weapons, officers, missions of the ships and bases of the 
ships. Suppose we want to store in the database the names, types, ID's, displacements, 
mission id's and base id's of the ships, the years in which the ships are built, the captains 
and executive officers of the ships, and finally the pictures of the ships. Let us assume 
that we want to know what weapons are on the ships and the weapons' power, fire range 
and the weapons’ pictures. As for the officers, their names, ranks, ID’s, salaries, report 
dates as well as their pictures and voices should also be kept in the database. Moreover, 
we may want to keep in the database the name, direction, goal and task related to each 
mission and also the name, location, and size of each Navy base. As seen from this 
example, besides standard data types we also have media types, namely image and sound. 


The above information can be transformed into relations in a database as shown in Figure 


4.1. 


34 





Figure 4.1. Navy Ship Relational Database Schemes 


The primary keys (underlined) of the relational schemes in Figure 4.1 are 
externally defined by the MDBMS user, and the media data types such as image and 
sound have also been defined as data types supported by the MDBMS prototype. As 
mentioned earlier, INGRES is used to store all the data. The question now is how to store 
media data types in INGRES which supports only standard data types? The solution is 
to express media data types in terms of standard data types. In the MDBMS prototype, 


the data type of each media attribute is defined as INTEGER internally. The content of 
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the media type is an integer which link to its own media relation that is not transparent 
to the users. These integers are internally generated identifiers for the tuples in the media 
relations. For each media attribute, a media relation is generated. This is deemed desirable 
since putting media data together, i.e., images from different relations, does not produce 
any benefit but actually causes the system to degrade in performance. Hence, "picture" 
in the relation OFFICER requires a media relation and picture in WEAPON requires 
another. Since attribute names do not have to be unique across relations, we must find 
ways to name the two PICTURE relations differently. The solution is to append the 
relation’s internal identifier to the media attribute names. Let us assume the SHIP’s 
internal identifier is "1", then the image media relation for the attribute "picture" in SHIP 
becomes PICTURE 1. In the same way, to each media table is assigned a name resulting 
in the media relations’ names as shown in Figure 4.2. Note that all the media tables are 
invisible to the users. 
Given the sample application above, the MDBMS prototype before the design 
and implementation of complex queries was able to respond queries as follows: 
* Retrieve the picture and voice recording of the captain of the ship "Kitty Hawk"? 


* What are the names of the ship weapons whose fire range is greater than 200 miles 
and whose pictures show "long range missile against land targets"? 


* Which ship is the executive officer Rosemary Stewart stationed at? 


* Retrieve the pictures and names of the ships which have the weapon "Trident". 


36 


Р1ЇСТОВЕ1 


i eg wi eps 
(int) (с64) (ус500) (int) (int) (int) 
РІСТОКЕЗ 


ысы ee [iei vi де 


(int) (c64) (vc500) (int) (int) (int) 


РНОТО6 
a Ci ee wi] eh 


(int) (C64) (vc500) (int) (int) (int) 





VOICE6 


sc tia [ae stg rs soin mises 


(int) (c64) (vc500) (int) (int) (int) (float) (int) 





Figure 42. The Media Relational Database Schemes for Media Attributes in 


Figure 4.1 


However, the prototype could not respond the types of queries listed below: 


* Retrieve the pictures, voice recordings and names the captains of the ships "Kitty 
Hawk" or "Mississippi"? 


* List the name of all ships which have the weapon whose picture shows "high speed 
guided torpedo" and whose fire range is greater than 1 mile or which was 
commanded by Captain "Huseyin Aygun". 


* Retrieve the voice recordings and names of the officers whose salary is greater than 
30,000 but who are not captain. 


Now let us look at how these queries can be handled in the order they are 


given: 
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* Can be handled using multiple selections. 
* Can be handled using a nested query inside multiple selections. 
e Can be handled using set operation MINUS. 
The detail information about how these queries and other complex queries can 


be evaluated will be given in the next section. 


В. DESIGN OF COMPLEX QUERY PROCESSING 
Іп this section we will first review the design of simple queries [REF10], then 
present the design of complex queries, namely nesting conditions (i.e.,IN, NOT IN, 
EXISTS, NOT EXISTS) and multiple selections, along with the design of set operations 
(1.е., UNION, INTERSECT, MINUS) and aggregate functions. Finally give an example 
for multiple selections including nesting condition. With our approach for the design of 
complex queries, it is possible to have nested queries up to arbitrary depth and arbitrarily 
many conditions inside each group and arbitrarily many groups for multiple selections. 
l. Simple Queries 
In this subsection we review simple queries which have already been designed 
and implemented by [REF10]. Further we will point out the differences of simple queries 
between our approach and the approach in [REF10]. 
As mentioned earlier, if a query includes only formatted data, it is directly 
passed to INGRES. However, if a query includes media data then the query is 
decomposed into multiple subqueries. Each subquery is then individually processed and 


the results of these subqueries are recomposed to give the final result to the user. Now 
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we can look at two examples - one with only formatted data, the other including media 
data in addition to formatted data - to illustrate what we have just said. 

1. Query: Which Navy ship is “Rosemary Stewart" stationed at? The SQL 
statement for this query can be wnitten as follows: 

SELECT s_name 

FROM ship, officer 

WHERE ship.exo id-officer.o id and o name-"Rosemary Stewart" 

Since this query contains only formatted data, no decomposition is necessary 
and it is directly passed to INGRES to get the result. 

2. Query: Retrieve the names, pictures and voice recordings of the executive 
officers stationed at ships whose displacement is greater than 40,000 and whose picture 
shows "gas turbine powered ship"? The extended SQL statement for this query can be 
written as follows: 

SELECT o name, picture, voice 

FROM officer, ship 

WHERE officer.o_id=ship.exo_id and displacement > 40,000 and ship picture 
(CONTAINS, "gas turbine powered ship"); 

Since the above query contains media it should be decomposed into subqueries. 
The decomposition process is shown below: 

Create table T1 as : 

SELECT * 


FROM ship, officer 
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WHERE officer.o_id=ship.exo_id and displacement > 40,000; 
Create table M] as : 
SELECT 11а 
FROM РІСТОКЕІ 
WHERE PICTURE] (CONTAINS, "gas turbine powered ship"); 
Create table RESULT as : 
SELECT o. name, picture, voice 
FROM ТІ,МІ 
WHERE T1.picture=M1.i_id 
After the system gets the final result which is an INGRES relation, the system 
will generate a cursor called cursor_output to print out the data one tuple at a time. If the 
output contains any media data, as in the above example, the RESULT table shows us the 
tuple id's retrieved from the related media relation, in the example above the media 
relation is PICTURE1. Later the system displays the media data in the order printed out 
for the formatted part. The process of creating and using a cursor is as follows: 
EXEC SQL CREATE CURSOR cursor output AS 
SELECT * 
FROM RESULT 
EXEC SQL FETCH CURSOR cursor. output; 
print formatted data; 
EXEC SQL CREATE CURSOR cursor. output AS 


SELECT media data 
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FROM RESULT 

EXEC SQL FETCH CURSOR cursor_output; 

display pictures; 

play voice recordings; 

What has been discussed about simple queries so far is according to the 
approach in [REF10]. We found that it is not convenient to display the media data in the 
order printed out for the formatted data. What if the user wants to see only the picture 
of the last tuple displayed as the final result? So, we modified the design for the display 
process of media part. With this modification, the user of the MDBMS prototype can 
select which media data to display. More detailed information about the modification can 
be found in the next chapter of this thesis. 

Because the design for the process of decomposition, when a query includes 
media data, introduced in this subsection is the same for complex queries and set 
Operations which will be introduced in the rest of this chapter, we will not repeat the 
decomposition process due to the inclusion of media data in a query for the sake of 
clarity. 

2. Nested Queries 

Some queries require that existing values in the database be fetched and used 
in a comparison condition. Such queries can be conveniently formulated using nested 
queries which are complete SELECT- FROM-WHERE queries within the WHERE clause 


of another query which is called the outer query. In this chapter we present the design of 
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nested queries including the comparison operators IN, NOT IN, EXISTS, and NOT 
EXISTS giving examples for each to clarify the approach. 
a. IN: 

The comparison operator IN compares a value, say v, with a set (or 
multiset) of values V and evaluates to TRUE if v is one of the elements in V. Let us now 
give an example to show how a nested query with the comparison operator IN looks like. 

Query: Retrieve the names, pictures and voice recordings of all executive 
officers stationed at ships whose weapon’s picture shows "high speed guided torpedo”. 

An extended SQL statement for the above query: 

SELECT o_name, picture, voice 

FROM officer 

WHERE o id IN 

(SELECT exo id 
FROM ship 
WHERE s. no IN 
(SELECT s. no 
FROM ship. weapon, weapon 
WHERE ship weapon.w. name-weapon.w. name and 
weapon.picture(CONTAINS, "high speed guided 
torpedo"))); 
This query is evaluated as follows: 


Create table T1 as: 
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SELECT s_no 
FROM ship_weapon, weapon 
WHERE ship_weapon.w_name=weapon.w_name and 
weapon.picture(CONTAINS, "high speed guided torpedo"))); 
Create table T2 as: 
SELECT exo. id 
FROM ship, T1 
WHERE ship.s no-Tl.s, no 
Create table RESULT as: 
SELECT o. name, picture, voice 
FROM officer, T2 
WHERE officer.o_id=T2.exo_id 
Note that we have neither shown the creation of temporary media tables 
nor the display of the final result as we did in the previous section for simple queries. The 
idea is to emphasize the design of a nested query with the comparison operator IN. The 


same process will be followed for the rest of this chapter. 


b. NOT IN: 

The comparison operator NOT IN compares a value v with a set (or 
multiset) of values V and evaluates to TRUE if v is not one of the elements in V. An 
example of a nested query with the comparison operator NOT IN is given below: 

Query: Retrieve the names, displacements, and pictures of all ships which 


do not have weapons whose picture shows "long range underwater-to-surface missile". 
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An extended SQL statement for the above query can be written as 
follows: 
SELECT s_name, displacement, picture 
FROM ship 
WHERE s_no NOT IN 
(SELECT s_no 
FROM ship_weapon, weapon 
WHERE ship_weapon.w_name=weapon.w_name and 
weapon.picture(CONTAINS, “long range underwater-to-surface 
missile"). 
The above query is evaluated as follows: 
Create table T1 as: 
SELECT s_no 
FROM ship_weapon, weapon 
WHERE ship_weapon.w_name=weapon.w_name and 
weapon.picture(CONTAINS, “long range underwater-to-surface 
missile"). 
Create table RESULT as: 
SELECT s_name, displacement, picture 
FROM ship, T1 


WHERE (ship.s_no=T1.s_no)=FALSE 


In the creation of the RESULT table the statement WHERE 
(ship.s_no=T1.s_no)=FALSE is used to show that the tuples of the table SHIP are 
retrieved into the table RESULT if the join condition evaluates to FALSE. In other words 


tuples of the table SHIP are retrieved if they are not a member of the values in table T1. 


с. EXISTS: 

The comparison operator EXISTS is usually used in conjunction with a 
correlated nested query. A correlated nested query is a nested query with a join condition 
related to the outer query. Nested queries with the comparison operator EXISTS work as 
follows: 

For each tuple of the outer query, the nested query is evaluated; if at least 
one tuple exists in the result of the nested query then that tuple of the outer query is 
retrieved. 

Query: Retrieve the names, ranks and pictures of the captains who 
commanded the ships whose pictures show "a cruiser firing at the enemy at the Gulf 
Маг". 

SQL statement for the above query: 

SELECT o_name, rank, picture 

FROM officer 

WHERE EXISTS 

(SELECT * 
FROM ship 


WHERE ship.picture(CONTAINS, "a cruiser firing at the 
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enemy at the Gulf War")); 
The above query is evaluated as follows: 
Create table T1 as follows: 
SELECT * 
FROM ship 
WHERE ship.picture(CONTAINS, "a cruiser firing at the 
enemy at the Gulf War")); 
Create table RESULT as follows: 
SELECT o name, rank, picture 
FROM officer, T1 


WHERE officer.o id2Tl.exo. id 


NOT EXISTS: 


The comparison operator NOT EXISTS is also used in conjunction with 


a correlated nested query. NOT EXISTS works as follows: 


For each tuple of the outer query, the nested query is evaluated; if the 


tuple does not exist in the result of the nested query then that tuple of the outer query is 


Query: Retrieve the names, ranks and pictures of the executive officers 


who are not stationed at destroyers. 


SQL statement: 
SELECT o name, rank, picture 


FROM officer 
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WHERE NOT EXISTS 
(SELECT * 
FROM ship 
WHERE type="destroyer’); 
The query is evaluated as follows: 
Create table T1 as: 
SELECT * 
FROM ship 
WHERE type="destroyer" 
Create table RESULT as: 
SELECT o_name, rank, picture 
FROM officer, T1 


WHERE (officer.o_id=T 1.exo_id)=FALSE; 


3. Set Operations 
Set operations in SQL are INTERSECTION, UNION, and MINUS (set 
difference). As we mentioned at the beginning of this chapter, our INGRES version does 
not support any of these operations. Since set operations are of great importance to us for 
implementing complex queries, we extended the capabilities of the SQL by implementing 


the set operations in C. Below we present the design of set operations. 
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a. UNION: 

The union of two tables is a table containing all rows that are either in 
the first, or in the second table or in both of them. There is an obvious restriction on this 
operation. It does not make sense, for example, to talk about the union of the SHIP and 
the OFFICER table. What would rows in this union look like? The two tables must have 
the same structure, i.e., they must be union-compatible. Two tables are union-compatible 
if they have the same number of columns and if their corresponding columns have 
identical data types and lengths. Note that the definition does not state that the column 
headings (attribute names) of the two tables must be identical but rather that the columns 
must be of the same type; thus if one is integer, the other one must also be an integer. 

Our design for UNION is to retrieve all the tuples of the second table and 
insert them into the first table. This is considered to be the easiest way to implement the 
set operation UNION. Let us give an example to make our design clearer. 

Query: Retrieve the names, ranks, pictures and voice recordings of all 
the officers who worked as an executive officer or as a captain on the ships whose 
pictures show "nuclear submarine with many kinds of guided torpedoes". 

Extended SQL statement for this query: 

(SELECTo_name, rank, picture, voice 

FROM officer, ship 

WHERE officer.o id-ship.exo id and ship.picture(CONTAINS, 

"nuclear submarine with many kinds of guided 


torpedoes")) 
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UNION 

(SELECTo_name, rank, picture, voice 

FROM officer, ship 

WHERE officer.o_id=ship.capt_id and ship.picture(CONTAINS, 
“nuclear submarine with many kinds of guided 
torpedoes")); 

The above query is evaluated as follows: 

Create table T1 as: 

SELECT o. name, rank, picture, voice 

FROM officer, ship 

WHERE officer.o id-ship.exo id and ship.picture(CONTAINS, 
"nuclear submarine with many kinds of guided 
torpedoes"); 

Create table T2 as: 

SELECT o_name, rank, picture, voice 

FROM officer, ship 

WHERE officer.o_id=ship.capt_id and ship.picture(CONTAINS, 
“nuclear submarine with many kinds of guided 
torpedoes"); 

EXEC SQL_ CREATE CURSOR cursor_outputl AS: 

SELECT * 


FROM Ti 
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EXEC SQL CREATE CURSOR cursor_output2 AS: 
SELECT * 


FROM T2 
INSERT INTO table T1 


VALUES (EXEC SQL FETCH CURSOR cursor_output2); 


b. INTERSECTION: 

The intersection of two tables is a table containing all rows that are in 
both tables. We should keep in mind that the issue of union_compatibility is also valid 
for intersection. 

Our design for the intersection of two tables dictates that the two tables 
should be joined with all the column headings (attributes). This approach gives the same 
result as the approach in which each tuple of the first table is checked against all the 
tuples of the second table. Let us illustrate our approach with an example. 

Query: Retrieve the names, power and pictures of all weapons whose 
pictures show "high speed close range defense weapon" along with the ones located on 
board the ship "Elliott". 

Extended SQL statement for the above query can be written as follows: 

(SELECTw name, power, picture 

FROM weapon 

WHERE weapon.picture(CONTAINS, "high speed close range 

defense weapon")) 


INTERSECT 
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(SELECTw_name, power, picture 
FROM ship, ship weapon, weapon 
WHERE ship.s_no=ship_weapon.s_no and 
ship_weapon.w_name=weapon.w_name); 
The above query is evaluated as follows: 
Create table T1 as: 
SELECT w_name, power, picture 
FROM weapon 
WHERE weapon.picture(CONTAINS, "high speed close range 
defense weapon"); 
Create table T2 as: 
SELECT w. name, power, picture 
FROM ship, ship weapon, weapon 
WHERE ship.s no-ship weapon.s no and 
ship weapon.w name-weapon.w. name; 
Create table RESULT as: 
SELECT w name, power, picture 
FROM Tl, Т2 
WHERE T1.w_name=T2.w_name and T1.power=T2.power and 


T1.picture=T2.picture 
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с. MINUS: 

The difference of two tables T1 and 12 (referred to as T1 MINUS T2) 
is the set of all rows that are in T1 but not in T2. Our design for the difference of two 
tables indicates that all the rows from the first table should be retrieved if the result of 
joining the two tables with all their attributes evaluates to FALSE. 

Let us clarify this approach with an example: 

Query: Retrieve the names, ranks, and pictures of all the officers whose 
picture show "tall person" but not the ones whose pictures show "blond hair". 

Extended SQL statement for this query can be written as follows: 

(SELECT o name, rank, picture 

FROM officer 

WHERE officer.picture(CONTAINS, "tall person")) 

MINUS 

(SELECT o. name, rank, picture 

FROM officer 

WHERE officer.picture(CONTAINS, "blond hair'")) 

This query can be evaluated as follows: 

Create T1 as: 

SELECT o, name, rank, picture 
FROM officer 
WHERE officer.picture(CONTAINS, "tall person"); 


Create T2 as: 
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SELECT o_name, rank, picture 
FROM officer 
WHERE officer.picture(CONTAINS, "blond hair"); 
Create RESULT as: 
SELECT o_name, rank, picture 
FROM T1, T2 
WHERE (ТІ.о пате-Т2.о пате апа Tl.rank-T2.rank and 
T1.picture=T2.picture)=FALSE 
The clause "WHERE (T1.0_name=T2.0_name and T1.rank = T2.rank and 
T1.picture=T2.picture)=FALSE" means the tuples from T1 are retrieved if the join 


conditions evaluate to FALSE, in other words if those tuples are not in T2. 


4. Aggregate Functions 
Since aggregation is required in many database applications, we decided to 
implement the aggregate functions in addition to the complex queries mentioned in this 
chapter. 
Aggregate functions like COUNT, SUM, MAX, MIN and AVG are built-in 
functions in INGRES SQL. In this subsection we present the design of the aggregate 


functions for our MDBMS prototype system. 


a COUNT 
The built-in function COUNT returns the number of tuples found for a 


specified condition. Let us give an example to clarify how COUNT works: 
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Query: How many executive officers are there in the fleet, whose pictures 
show "tall person with black hair"? 

The extended SQL statement for the above query: 

SELECT COUNT(o name) 

FROM officer 

WHERE officer.picture (CONTAINS, "tall person with black hair"); 

The above query is evaluated as follows: 

Create table RESULT as: 

SELECT COUNT(o name) 

FROM officer 

WHERE officer.picture (CONTAINS, "tall person with black hair"); 

Let us assume that there are 3 tuples in the table T1, that match the 


query. Then the aggregate functions COUNT returns 3 in the table RESULT. 


b. SUM, MAX, MIN, AVG 

The aggregate functions SUM, MAX, MIN and AVG are applied to a set 
or multiset of numeric values and return the sum, maximum, minimum and average of 
those values. Let us clarify this with an example: 

Query: What is the sum, maximum, minimum and average salary of the 
officers? 

An extended SQL statement for the above query can be written as 
follows: 


SELECT SUM(salary), MAX(salary), MIN(salary), AVG(salary) 
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FROM officer; 

The above query is evaluated as follows: 

Create table RESULT as: 

SELECT SUM(salary), MAX(salary), MIN(salary), AVG(salary) 


FROM officer; 


5. Multiple Selections 

As we mentioned in Chapter II Section E of this thesis, multiple selections can 
be represented in disjunctive normal form by using the Boolean operator and inside each 
group, and Boolean operator or between groups. With our approach for the design of 
multiple selections it is possible to have arbitrarily many conditions inside each group and 
arbitrarily many groups in a query. The design is as follows: 

The result of each condition inside a group is retrieved into a temporary table. 
For each group, these temporary tables are intersected using the set operator 
INTERSECT; the result of the intersection is put into another temporary table. Later the 
temporary tables including the results of each group are unioned using the set operator 
UNION and the result of this operation is put into the table RESULT, which is the final 
result of the whole query. 

Let us elucidate this with an example which includes multiple selections 
without any nesting condition. An example with nesting condition will be presented in the 
next subsection. 

Query: Retrieve the names, types and pictures of all ships built after 1975 and 


whose pictures show "nuclear submarine with many missiles" or those whose 
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displacement is less than 100,000 and whose pictures show "destroyer with many kinds 
of guided missiles on board". 

SQL statement for the above query is as follows: 

SELECT s_name, type, picture 

FROM ship 

WHERE (yr. built » 1975 and ship.picture(CONTAINS, "nuclear 
submarine with many missiles")) or (displacement « 100,000 
and ship.picture(CONTAINS, "destroyer with many kinds of 
guided missiles on board")); 

The query above can be evaluated as follows: 

Create table T1 as: 
SELECT s_name, type, picture 
FROM ship 
WHERE yr_built > 1975 

Create table T2 as: 
SELECT s_name, type, picture 
FROM ship 
WHERE ship.picture(CONTAINS, "nuclear submarine with many 

missiles"); 

Create table R1 as: 

T1 INTERSECT T2; 


Create table T3 as: 
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SELECT s_name, type, picture 

FROM ship 

WHERE displacement < 100,000 
Create table T4 as: 

SELECT s_name, type, picture 

FROM ship 

WHERE ship.picture(CONTAINS, "destroyer with many kinds 

of guided missiles on board")); 

Create table R2 as: 

T3 INTERSECT T4; 
Create table RESULT as: 


R1 UNION R2; 


Complex Queries 


So far we presented the design of simple queries, nested queries, set operations 


and multiple selections. Now we are ready to give an example of a complex query 


including most of the types of these queries. 


Query: List the names and displacements of all ships whose weapons’ pictures 


show "anti aircraft missile" and whose pictures show "modern air defense cruiser, high 


speed gas turbine powered ship with many engines" or whose captain's rank is 


commander and whose executive officers' salary is greater than $35,000. 


SQL statement for the above query is: 


SELECT s name, displacement 
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FROM ship 
WHERE (s_no IN 
(SELECT s_no 
FROM ship_weapon, weapon 
WHERE ship_weapon.w_name=weapon.w_name 
and weapon.picture(CONTAINS, “anti-aircraft missile")) 
and ship.picture(CONTAINS, "modern air defense cruiser")) or 
((EXISTS (SELECT o 1а 
FROM officer 
WHERE o. id-"capt") 
and (exo id IN (SELECT o id 
FROM officer 
WHERE salary > 35,000)))) 
The above query can be evaluated as follows: 
Create table T1 as: 
SELECT s. no 
FROM ship weapon, weapon 
WHERE ship weapon.w name-weapon.w name and weapon.picture 
(CONTAINS, "anti-aircraft missile"); 
Create table T2 as: 
SELECT o id 


FROM officer 
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WHERE o_id="capt" 
Create table T3 as: 
SELECT o_id 
FROM officer 
WHERE salary > 35,000 
Create table T4 as: 
SELECT s_name, displacement 
FROM ship 
WHERE s_no IN T1 
Create table T5 as: 
SELECT s, name, displacement 
FROM ship 
WHERE ship.picture(CONTAINS, "modern air defense cruiser"); 
Create table R1 as: 
T4 INTERSECT T5 
Create table T6 as: 
SELECT s. name, displacement 
FROM ship 
WHERE EXISTS T2 
Create table T7 as: 
SELECT s. name, displacement 


FROM ship 
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WHERE exo id IN T3 
Create table R2 as: 
T6 INTERSECT T7 
Create table RESULT as: 
R1 UNION R2 
Refer to Appendix A of this thesis for a comprehensive example of complex 


queries. 


V. IMPLEMENTATION OF COMPLEX QUERIES 
In this chapter, we will first present the user interface for all types of queries 
supported by the MDBMS prototype, then give the query processing for each type of 
query in detail and, finally, we will mention the necessary procedures for linking and 


running the system. 


A. USER INTERFACE 
In section IV.B., we discussed the design of complex queries using the SQL 
language. A decision was made to use an interactive interface instead of using an 
extended version of SQL as the user interface. The idea behind this is to let the casual 
users use the system more easily. In this section, we present the interface design for the 
retrieval operations implemented so far by giving examples, rather than describing the 
user interface in an abstract manner. 
1. Simple Queries 
According to our classification, a simple query is a query involving one or 
more conditions in the WHERE clause of an SQL statement with the Boolean operator 
and between conditions. Further, none of these conditions include a nesting condition. Let 
us clarify what we have just said with an example: 
Query: Retrieve the name, rank, salary, picture and voice recording of the 
commanding officers who reported for duty before 1989 and who are stationed at ships 


whose pictures show "gas turbine powered ship". 
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SQL statement for the above query: 

SELECT o_name, rank, salary, picture, voice 

FROM officer, ship 

WHERE officer.o_id=ship.exo_id and rep_yr<1989 and 

ship.picture(CONTAINS, "gas turbine powered ship"); 

When the user wants to specify such a query in the MDBMS, he will first 
select the option 'retrieve' from the main menu. The system then responds with 
appropriate instructions step by step. Each time when the user's response is entered, the 
system will return to ask for the next piece of information. The following operations are 
thus required to complete the simple query above (the scripts in bold type represent the 


user's responses). 


Multimedia Database Management System 








1. Create Table 

2. Insert Tuple 

3. Retrieve 

4. Delete 

5. Modify 

6. Print out current data information(test purpose) 
0. Quit 








Select your choice :: 3 


Your Selection is RETRIEVAL! 

Enter table name to hold the temporary result of the query: temp 
Select the table(s) separate by comma <,> : (<?> for HELP!) 
SELECT TABLE(S): ship, officer 


Please enter your join condition 
(<?> for help!) : ship.capt_id=officer.o_id 


Table ship 

Select the attribute(s) separated by comma <,> : («7» for HELP!) 
(Hit <ESC>for no attribute) 

SELECT ATTRIBUTE(S) : <ESC> 
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Table officer 

Select the attribute(s) separated by comma <,> : (<?> for HELP!) 
(Hit <ESC> for no attribute) 

SELECT ATTRIBUTE(S) : o_name, rank, salary, photo, voice 


Any condition ? (y/n): у 
Group condition ? (y/n): y 


Retrieval Operations Menu 





0. Simple Condition 
1. tablel where EXISTS table2 

2. tablel where NOT EXISTS table2 
3. tablel IN table2 

4. tablel NOT IN table2 


Select your choice :: 0 


Enter table name: officer 
Enter attribute: гер ут 
Enter the condition: <1989 
Where rep_yr <1989 


There are 4 records that match the query 

record id 1 o_name:Jeff Kulp rank:Capt salary:10000 photo id is 1 voice id is | 
record id 2 o name:Dan Hendricks rank:Cdr  salary:8500 — photo id is 2. voice 2 
record id 3 o name: Yavuz Atila — rank:Cdr salary:7500 photo id is 3 voice 3 
record id 4 o name:John Daley rank:Cdr salary:9000 photo id is 4 voice 4 


Do you want to see any image data ? (y/n): n 
End group ? :n 


Retrieval Operations Menu 


0. Simple Condition 

1. tablel where EXISTS table2 

2. table] where NOT EXISTS table2 
3. tablel IN table2 

4. tablel NOT IN table2 


Select your choice :: 0 


Your Selection is Simple Condition 

Enter table name: ship 

Enter attribute: picture 

Please enter your query description 
* noun phrases separate by commas and end with an exclamation mark 
* sentence end with a period. 

(end whole description with an empty line): 

gas turbine powered ship! 
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Searching ..... 

Below is the result of the first 2 conditions in group 1 : 

There are 2 records that match the query 

record id 1 o_name:Yavuz Atila rank:Cdr salary:7500 photo id is 3 voice 3 
record id 2 o name:John Daley rank:Cdr salary:9000 photo id is 4. voice 4 


Do you want to see any image data ? (y/n):n 
End group ?:y 


Below is the result of group 1 : 
record id 1 o name:Yavuz Atila rank:Cdr salary:7500 photo id is 3 voice 3 
record id 2 o name:John Daley rank:Cdr salary:9000 photo id is 4 voice 4 


Do you want to see any image data ? (y/n):n 
End condition ?:y 


Below is the final result of all groups : 
record id 1 o name:Yavuz АШа rank:Cdr salary:7500 photo id is 3 voice 3 
record id 2 o name:John Daley rank:Cdr salary:9000 photo id ts 4 voice 4 


Do you want to see any image data ? (y/n):y 
Which tuple's image do you want to see? (enter record id) : 1 


Record no 1 filename :;/tmp mnt/n/virgo/work/mdbms/MDBMS/91163.173948 Show image .... 


The following photo has been found: 

Number: | 

Description: 

»»black hair,big nose,thin body, tall person with glasses! 
<< 

Do you want to see the photo?: у 


*** The photo is displayed on the screen *** 
Do you want to see more image data ? (Y/N): n 


Which tuple’s sound do you want to hear? (enter record id): 2 
Sound management 

Record no 2 

Play the sound ? (y/n): y 


*** Sound is play-backed *** 


Do you want to hear more sound data ? (Y/N): n 
If you want to intersect / union / minus any two tables: 








1. INTERSECT two tables 
2. UNION two tables 

3. MINUS 

0. Quit 





Select your choice :: 0 


More selections at this level ? (y/n): n 
More levels ? (y/n): п 


Note that after the tuples that match the query are retrieved, the user is asked 
which tuple’s picture he wants to see and which tuple’s voice he wants to hear. This is 
very convenient. In [REF10], the media data was displayed tuple by tuple without asking 
the user for his choice which was inconvenient for the user of the MDBMS prototype. 

Another difference between our interface design and [REF10] is the addition 
of the "Retrieval Operations Menu’. This menu is required to ask the user if his condition 
is a simple one or a nesting condition. 

2. Queries Using Nesting Condition 

As we mentioned in IV.2, a nested query is a complete SELECT-FROM- 
WHERE query within the WHERE clause of a another query which is called the outer 
query. In this subsection, we present the implementation of nested queries using the 


nesting operators IN, NOT IN, EXISTS and NOT EXISTS. 


a. ШЧ 
When the user wants to specify a nested query with the nesting operator 
IN, he should enter the inner query, put the result in a temporary table and then he should 
enter the outer query. Let us give an example to clarify this: 
Query: Retrieve the names, types and pictures of the ships whose 
weapon's picture shows "high speed guided torpedo". 


An extended SQL statement for the above query: 
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SELECT s_name, type, picture 
FROM ship, ship_weapon 
WHERE ship.s_no=ship_weapon.s_no 
and w_name IN 
(SELECT w_name 
FROM weapon 
WHERE weapon.picture (CONTAINS, "high speed guided 
torpedo")); 
In order to avoid repetition, we will not give all the steps the user has to 
follow to complete the above query, instead we will explain them. 
The above query consists of the inner query (the SELECT-FROM- 
WHERE query in the parenthesis) and the outer query. The user will first enter the inner 
query in the same way as the example of simple queries given in section V.A.1. So far, 
we assume that we have the result of the inner query in the temporary table "templ1". We 
can, now, present the rest of the steps that the user has to follow to get the final result 


of the whole query: 


More selections at this level? (y/n): n 
More levels? (y/n): y 
Enter table name to hold the temporary result of the query: result 


Select the table(s) separate by comma <,> : (<?> for HELP!) 
SELECT TABLE(S): ship, ship_weapon 


Please enter your join condition 
(<?> for help!) : ship.s no-ship weapon.s no 


Table ship 


Select the attribute(s) separated by comma <,> : (<?> for HELP!) 
SELECT ATTRIBUTE(S) 
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(Hit <ESC> for no attribute) 
: S, name, type, picture 


Table ship. weapon 

Select the attribute(s) separated by comma <,> : (<?> for HELP!) 
SELECT ATTRIBUTE(S) 

(Hit <ESC> for no attribute) 

:<Е5С> 


Any condition ? (y/n): y 
Group condition ? (y/n): n 


Retrieval Operations Menu 








0. Simple Condition 
1. table] where EXISTS table2 
2. tablel where NOT EXISTS table2 
3. tablel IN table2 
4. tablel NOT IN table2 
Select your choice :: 3 
Your Selection is table! IN table2 


Enter the temp table name related to IN : temp! 
Enter attribute for the appropriate table for condition of IN : w_name 


Table ** templ ** 
SELECT ATTRIBUTE (only one attribute!): w_name 


There is 1 record that match the query 
record id 1. s name: Michigan yr built: 1982 picture id is 5 


Do you want to see any image data ? (y/n): n 
Do you want to see more image data ? (Y/N): n 


If you want to intersect / union /minus any two tables: 


1. INTERSECT two tables 
2. UNION two tables 
3. MINUS 
0. Quit 
Select your choice :: 0 
More selections at this level ? (y/n): n 
More levels ? (y/n): n 
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b. NOTIN 

Let us present the user interface of a nested query including the 
comparison operator NOT IN by giving an example query first. 

Query: Retrieve the name, rank, pictures and voice recording of the 
commanding officers who are not stationed at ships whose picture shows "gas turbine 
powered ship". 

An extended SQL statement for the above query using the comparison 
operator NOT IN can be written as follows: 

SELECT o name, rank, photo, voice 

FROM officer 

WHERE o. id NOT IN 

(SELECT capt id 
FROM ship 
WHERE ship.picture (CONTAINS, "gas turbine powered ship"); 

As we did for nested queries using the comparison operator IN, we will 
not repeat all the steps to be followed by the user for specifying the nested query above 
either, but just point out the differences in the user interface. 

We suppose that we have the result of the inner query in the temporary 
table "templ". The rest of the user interface to get the result of the above query is as 


follows: 


More selections at this level ? (y/n): n 
More levels ? (y/n): y 
Enter table name to hold the temporary result of the query: result 
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Select the table(s) separate by comma <,> : (<?> for HELP!) 
SELECT TABLE(S): officer 


Table officer 

Select the attribute(s) separated by comma <,> : (<?> for HELP!) 
SELECT ATTRIBUTES) 

(Hit <ESC> for no attribute) 

: o. name, rank, photo, voice 


Any condition ? (y/n): y 
Group condition ? (y/n): n 


Retrieval Operations Menu 

0. Simple Condition 

1. tablel where EXISTS table2 

2. tablel where NOT EXISTS table2 
3. tablel IN table2 

4, tablel NOT IN table2 








Select your choice :: 4 
Your Selection is table1 NOT IN table2 


Enter the temp table name related to NOT IN : resultl 
Enter attribute for table officer for condition of NOT IN : o id 


Table ** result] ** 
SELECT ATTRIBUTE (only one attribute!) : capt id 


There are 3 records that match the query 


record id 1 o name: Dan Hendricks rank : Cdr photo id is 2 voice 2 
record id2 o name: Fred Pong rank : Lt Cdr photo id is 9 voice 9 
record id 3 o name : Huseyin Aygun rank : Lt Cdr photo id is 8 voice 8 


Do you want to see/hear any media data ? (y/n): n 
More selections at this level ? (y/n): n 
More levels ? (y/n): n 
c. EXISTS 
The comparison operator EXISTS is usually used in conjunction with a 


correlated nested query. A correlated nested query is a nested query with a join condition 


related to the outer query. Considering this as a general rule, we ask the user to enter a 
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join condition between the inner query and the outer query. Nested queries with the 
comparison operator EXISTS work as follows: 

For each tuple of the outer query, the nested query is evaluated; if at least 
one tuple exists in the result of the nested query then that tuple of the outer query is 
retrieved. 

Let us give an example for a nested query with the nesting operator 
EXISTS: 

Query: Retrieve the name, type and picture of the ships whose weapon’s 
picture shows "long, range missile against land targets". 

The extended SQL statement for the above query: 

SELECT s. name, type, picture 

FROM ship, ship weapon 

WHERE ship.s nozship weapon.s no 

and w name EXISTS 

(SELECT у пате 

FROM weapon 

WHERE weapon.picture (CONTAINS, "long range missile against 
land targets")); 

The user interface portion, after the result of the inner query is put in the 


temporary table "tablel", is as follows: 


More selections at this level ? (y/n): n 
More levels ? (y/n): y 
Enter table name to hold the temporary result of the query: result 
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Select the table(s) separate by comma <,> : (<?> for HELP!) 
SELECT TABLE(S): ship, ship_weapon 


Please enter your join condition 
(«7» for help!) : ship.s no-ship weapon.s no 


Table ship 

Select the attribute(s) separated by comma <,> : (<?> for HELP!) 
SELECT ATTRIBUTE(S) 

(Hit <ESC> for no attribute) 

: S name, type, picture 


Table ship weapon 

Select the attribute(s) separated by comma <,> : (<?> for HELP!) 
SELECT ATTRIBUTES) 

(Hit <ESC> for no attribute) 

> <ESC> 


Any condition ? (y/n): y 
Group condition ? (y/n): n 


Retrieval Operations Menu 





0. Simple Condition 
1. tablel where EXISTS table2 
2. tablel where NOT EXISTS table2 
3. tablel IN table2 
4. tablel NOT IN table2 
Select your choice :: 1 
Your Selection is table! where EXISTS table2 


Enter the temp table name related to EXISTS : resultl 


Please enter your join condition 
between the appropriate table and ** temp! ** :ship_weapon.w_name=weapon.w_name 


There are 2 records that match the query 

record id 1 s name: Kitty Hawk type : carrier picture id is 1 
record id2 s name: Mississippi type : cruiser picture id is 2 
Do you want to see/hear any media data ? (y/n): n 


d. NOT EXISTS 
The comparison operator NOT EXISTS is also used in conjunction with 


a correlated nested query. NOT EXISTS works as follows: 
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For each tuple of the outer query, the nested query is evaluated; if the 
tuple does not exist in the result of the nested query then that tuple of the outer query is 
retrieved. 

As we did for EXISTS, we again ask the user a join condition between 
the inner query and the outer query. 

Query: Retrieve the name and rank of executive officers who did not 
attend Gulf War and show their photographs. 

The extended SQL statement for the above query: 

SELECT o_name, rank, photo 

FROM officer 

WHERE NOT EXISTS 

(SELECT * 
FROM ship, mission 
WHERE ship.m id-mission.m id 
and mission.m_name="Gulf War"); 
Suppose that the user has already put the result of the inner query in the 


temporary table "temp1". The rest of the steps to be followed are given below: 


More selections at this level ? (y/n): n 
More levels ? (y/n): y 
Enter table name to hold the temporary result of the query: result 


Select the table(s) separate by comma «,» : (<?> for HELP!) 
SELECT TABLE(S): officer 
Table officer 


Select the attribute(s) separated by comma <,> : (<?> for HELP!) 


SELECT ATTRIBUTE(S) 
(Hit <ESC> for no attribute) 
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: 0 name, rank, photo 


Any condition ? (y/n): y 
Group condition ? (y/n): n 


Retrieval Operations Menu 
0. Simple Condition 
1. tablel where EXISTS table2 
2. tablel where NOT EXISTS table2 
3. tablel IN table2 
4. tablel NOT IN table2 
Select your choice :: 2 
Your Selection is tablel where NOT EXISTS table2 








Enter the temp table name related to NOT EXISTS : temp! 


Please enter your join condition 
between the appropriate table and ** temp! ** : officer.o_id=ship.exo_id 


There are 2 records that match the query 
record id 1 o name: Huseyin Aygun rank : Lt photo id is 1 
record id 2 — o name: Yavuz Atila rank : Lt Cdr photo id is 3 


Do you want to see any image data ? (y/n): n 


Refer to Appendix A of this thesis for a complex query including nested 


queries and multiple selections. 


3. Set Operations 


In this subsection we present the user interface for the set operations 


INTERSECTION, UNION and MINUS. As we did for nested queries we will only point 


out the differences in the user interface, instead of repeating all the steps to be followed 


by the user. 
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а UNION 

Query: List the names, ranks, pictures and voice recordings of all the 
officers who worked as an executive officer or as a captain on the ships whose pictures 
show "nuclear submarine with many kinds of guided torpedoes’. 

Extended SQL statement for this query: 

(SELECTo_name, rank, picture, voice 

FROM officer, ship 

WHERE officer.o id-ship.exo id and ship.picture(CONTAINS, 

"nuclear submarine with many kinds of guided 
torpedoes")) 

UNION 

(SELECTo. name, rank, picture, voice 

FROM officer, ship 

WHERE officer.o_id=ship.capt_id and ship.picture(CONTAINS, 

"nuclear submarine with many kinds of guided 
torpedoes")); 

The above query consists of two subqueries with the set operator UNION 
between them. The user who wants to specify such a query will treat each of the two 
subqueries as simple queries, put their results in temporary tables and then use the set 
operations menu to get the final result. Now let us assume we have the result of the first 
subquery in "templ" and the result of the second subquery in "temp2". The remaining 


steps to be followed are as follows: 
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If you want to intersect / union /minus any two tables: 


1. INTERSECT two tables 

2. UNION two tables 

3. MINUS 

0. Quit 

Select your choice :: 2 
Your selection is UNION 











Enter the name of the first temp table: temp] 
Enter the name of the second temp table: temp2 
Enter a temp table name to hold the result of the query: result 


There are 2 records that match the query 

record id 1 о name: Rosemary Stewart rank: It photo id is 1 voice id is 5 
record id 2 о name: Yavuz Atila rank : Lt Cdr photo id is 3 voice id is 7 
Do you want to see/hear any media data ? (y/n): n 


b. INTERSECTION 

Query: Retrieve the names, power and pictures of all weapons whose 
pictures show "high speed close range defense weapon" along with the ones located on 
board the ship "Elliott". 

Extended SQL statement for the above query can be written as follows: 

(SELECTw name, power, picture 

FROM weapon 

WHERE weapon.picture(CONTAINS, "high speed close range 

defense weapon")) 

INTERSECT 

(SELECTw. name, power, picture 

FROM ship, ship weapon, weapon 


WHERE ship.s no-ship weapon.s no and 
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ship weapon.w name-weapon.w name), 
As we did for UNION, let us assume that we have the result of the first 
subquery in "templ" and the result of the second subquery in "temp2". The remaining 


steps to be followed are as follows: 


If you want to intersect / union /minus any two tables: 
1. INTERSECT two tables 
2. UNION two tables 
3. MINUS 
0. Quit 





Select your choice :: 1 
Your selection is INTERSECT 
Enter the name of the first temp table: temp] 
Enter the name of the second temp table: temp2 
Enter a temp table name to hold the result of the query: result 


There is і record that matches the query 
record id 1 w name: Trident power: 100 photo id is 1 


Do you want to see any image data ? (уп): п 
с. MINUS 

Query: Retrieve the names, ranks, and pictures of all the officers whose 
picture show "tall person" but not the ones whose pictures show "blond hair". 

Extended SQL statement for this query can be written as follows: 

(SELECT o name, rank, picture 

FROM officer 

WHERE officer.picture(CONTAINS, "tall person")) 

MINUS 

(SELECT o. name, rank, picture 


FROM officer 
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WHERE officer.picture(CONTAINS, "blond hair")) 
Let us suppose that we have the result of the first subquery in "templ" 
and the result of the second subquery in "temp2". The remaining steps to be followed are 


as follows: 


If you want to intersect / union /minus any two tables: 
REE ME Be Be SSeS aaa шшр Бош; 
1. INTERSECT two tables 
2. UNION two tables 
3. MINUS 
0. Quit 








Select your choice :: 3 
Your selection is MINUS 


Enter the name of the first temp table: temp! 
Enter the name of the second temp table: temp2 
Enter a temp table name to hold the result of the query: result 


There are 2 records that match tbe query 
record id | 0o name: Rosemary Stewart rank: Lt photo id is | 
record id 2 0o name: Yavuz Atila rank : Lt Cdr photo id is 3 


Do you want to see any image data ? (y/n): o 


4. Aggregate Functions: 
As we mentioned in IV.B.4, aggregate functions are built-in functions in 
INGRES SQL. These are COUNT, SUM, MAX, MIN and AVG. In this subsection we 
will present the user interface of the aggregate functions. 
a. COUNT 
The built-in function COUNT retums the number of tuples resulting from 


a query. Let us give an example to clarify how COUNT works: 
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Query: How many executive officers are there in the fleet, whose pictures 
show "tall person with black hair"? 

The extended SQL statement for the above query: 

SELECT COUNT*(o. name) 

FROM officer 

WHERE officer.picture (CONTAINS, "tall person with black hair"); 

When the user wants to specify a query as above he should first select 
the Retrieve option from the Main Menu and then follow the following steps to get the 


result: 


Enter table name to hold the temporary result of the query: temp 
Select the table(s) separate by comma <,> : (<?> for HELP!) 
SELECT TABLE(S): officer 


Table officer 

Select the attribute(s) separated by comma <,> : (<?> for HELP!) 
(Hit <ESC> for no attribute) 

SELECT ATTRIBUTE(S) 

: CNT(o name) 


Any condition ? (y/n) :y 
Group condition ? (y/n): n 


Retrieval Operations Menu 


0. Simple Condition 

1. tablel where EXISTS table2 

2. tablel where NOT EXISTS table2 
3. tablel IN table2 

4. tablel NOT IN table2 








Select your choice :: 0 
Enter attribute: picture 
Please enter your query description 
* noun phrases separate by commas and end with an exclamation mark 


* sentence end with a period. 
(end whole description with an empty line): 
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tall person with black hair! 


There are 2 records that match the query 
record id 1 COUNT(o name) = 2 
record id2 COUNT(o name) 2 2 
b. SUM, AVG, MAX, MIN 

The built-in functions SUM, AVG, MAX and MIN are applied to a set 
or multiset of numeric values and returns the sum, average, maximum and minimum of 
those values. Let us illustrate this with an example: 

Query: Find the sum, average, maximum and minimum of the salaries of 
the commanding officers who are stationed at ships whose picture shows “nuclear 
submarine with many different kinds of torpedoes”. 

An extended SQL statement for the above query can be written as 
follows: 

SELECT SUM(salary), AVG(salary), MAX(salary), MIN(salary) 

FROM officer, ship 

WHERE ship.capt_id=officer.o_id and ship.picture(CONTAINS, "nuclear 

submarine with many different kinds of torpedoes"); 

When the user wants to specify such a query he should first select the 
Retrieve option from the Main Menu and then follow the following steps: 


Enter table name to hold the temporary result of the query: temp 


Select the table(s) separated by comma «,» : («?» for HELP!) 
SELECT TABLE(S): ship, officer 


Please enter your join condition 
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(<?> for help!) : ship.capt_id=officer.o_id 


Table ship 

Select the attribute(s) separated by comma <,> : (<?> for HELP!) 
(Hit <ESC> for no attribute) 

SELECT ATTRIBUTE(S) : <ESC 


Table officer 

Select the attribute(s) separated by comma «,» : (<?> for HELP!) 
(Hit <ESC> for no attribute) 

SELECT ATTRIBUTES) 

: sum(salary), avg(salary), max(salary), min(salary) 


Any condition ? (y/n): y 
Group condition ? (y/n): n 


Retrieval Operations Menu 


0. Simple Condition 

1. tablel where EXISTS table2 

2. table! where NOT EXISTS table2 
3. table! IN table2 

4. tablet NOT IN table2 





Select your choice :: 0 





Enter table name: ship 
Enter attribute: picture 


Please enter your query description 
* noun phrases separate by commas and end with an exclamation mark 
* sentence end with a period. 

(end whole description with an empty line): 

nuclear submarine with many different types of torpedoes! 


Result of the query: 
SUM(salary)=15000 AVG(salary)=7500 MAX(salary)=8000 MIN(salary)=7000 


B. QUERY PROCESSING 

In Chapter IV, the various cases in which an extended query (i.e., a sumple query 
or a complex query) must be decomposed into multiple SQL queries are illustrated. We 
also presented that this method of decomposition required the generation of temporary 


relational tables for further processing. 
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Complex query operations actually require a compiler action to compile the user 
input into SQL statements for INGRES. In addition to the catalog tables given in [REF8], 
other tables are also required to keep the various information for the purpose of complex 
query operations. In this section we present the data structures used for implementing 
complex queries. 

In order to process a given query, the system needs information on the table name, 
the attribute names, and the data types of the attributes. The table Selection Array is 
created for this purpose as mentioned in [REF10]. Since aggregation is required for many 
database applications, we decided to add the aggregate type to the Selection Array, to 
hold the type of the built-in aggregate functions in SQL. The built-in aggregate functions 
in SQL are, as mentioned in IV.B.4, COUNT, SUM, AVG, MAX, MIN and these are 
used in the SELECT-clauses of queries. 

The second structure is the Condition Array table. This structure holds the 
conditions for the query and contains the table name, attribute name and the condition for 
each selection. This is also presented in [REF10] in detail. 

The third structure used by [REF10] was Group Array table which holds the index 
to the Condition Array table for each group in the query. We did not use this structure 
to implement complex queries, since we decompose a given complex query into multiple 
simple queries, put their results in temporary tables and recompose these results to get the 
final result. 

When the user specifies a nested query, the query is decomposed into multiple 


simple queries beginning from the innermost query. The information about the table 
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name, attribute names, the data types of the attributes,etc... are put into the data structures 
mentioned above. After the result is retrieved in a temporary table entered by the user, 
the data structures are initialized at the end of the loop controlling the selections at the 
same level or at the end of the outer loop controlling the selections at different levels. 

When the user specifies a complex query consisting of multiple selections, the query 
is again decomposed into multiple simple queries (i.e., a query with one group and 
arbitrarily many conditions in this group). Each simple query is evaluated separately and 
its result is put into a system generated temporary table. Finally the results of these 
simple queries, depending on the Boolean operators or or and between the groups, are 
recomposed using the set operations UNION or INTERSECTION to get the final result. 
Four arrays are used to hold the temporary table names and to let the user enter a query 
consisting of arbitrarily many groups and arbitrarily many conditions in each group. 

As we mentioned in IV.A.1, INGRES does not support host variables. INGRES 
considers the MDBMS program as an application program. Information received from the 
user at run time cannot be passed to INGRES via the embedded C SQL statements. To 
solve this problem, we had to modify the C code generated by INGRES in the 
precompilation process, when SQL statements have already been transferred into C code, 
in such a way that variables can be assigned values at run time. The result is then 


compiled by the C compiler for execution. 
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C. HOW TO LINK AND RUN THE SYSTEM 

The system is built on the SUN workstation on the server "Virgo" at cs.nps.navy.mil 
under the account /n/virgo/work/mdbms/MDBMS/db. db is an object code module ready 
for execution. The program itself is called db.sc. The program db.sc is first precompiled 
by INGRES SQL precompiler to produce db.c. After we get db.c, we have to compile this 
program using the C compiler into an object code and link it to the INGRES library, 
Suntools library, Sunwindows library, Sunpixrects library and other subprograms shown 
in Figure 3.4. The other files needed in the same directory are prolog_parser, 
imagei image facts and diction.add. To make the link process simpler, a Makefile is used 


as shown in Figure 5.1. 


MDBMS PATH z /n/virgo/work/mdbms/MDBMS 
PLPATH = /n/virgo/work/mdbms/MDBMS/PROLOG SOURCE 
OBJMODSzISfunctions.o ISsubroutine.o rpc. pl call.o plcall, xdr.o* 
plcall cint.o CatalogManagement.o SoundModule.o* 
Userlnterface.o CreateModule.o InsertModule.o Retrieve.o* 
ImageModule.o 
PLMODS z $(PLPATH)/dict.pl ^ 
$(PLPATH)/diction.pl \ 
$(PLPATH)/interface.pl \ 
$(PLPATH)/simple.p! \ 
$(PLPATH)/ist  util.pl * 
$(PLPATH)/read_capt.pl \ 
$(PLPATH)/variable.pl * 
$(PLPATH)/gen util.pl * 
$(PLPATH)/number.pl \ 
$(PLPATH)/semantics.pl 
DEFINE = defines.h errors.h 
Global = Global Variables.h 


RPC = plcall.h 
FLAGS = -g 
SERVER = ai9 
RSH = rsh 
LINT = lint 


FILES = Makefile \ 
rpc. pl server.c ^ 
rpc pl call.c * 
picall.h \ 
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рісай 5ус.с 
plcall_xdr.c \ 

plcall cint.c * 
IMPORTANT FILES N 
defines.h ^ 

errors.h \ 
ISsubroutine.c \ 
ISfunctions.c * 
comcprolog_neu.c \ 


.c.0:; cc -c $(FLAGS) -o $9 $*.c 
Retrieve.o CreateModule.o InsertModule.o CatalogManagement.o * 
Userlnterface.o SoundModule.o ImageModule.o: $(Global) 


rpc_pl_call.o rpc_pl_server plcall_svc.o plcall_xdr.o plcall cint.o: $(RPC) 
Retrieve.o CreateModule.o InsertModule.o CatalogManagement.o \ 
UserInterface.o SoundModule.o ISfunctions.o [Ssubroutine.o \ 
rpc_pl_call.o rpc_pl_server ImageModule.o: $(DEFINE) 


db: db.o $(OBJMODS) 
@echo "creating DATABASE ..." 
cc $(FLAGS) db.o \ 
$(OBJMODS) \ 
/ingres/lib/libqlib /ingres/lib/compatlib \ 
-Isuntool -lsunwindow -Ipixrect -lm \ 
-0 db 


db.c: db.sc 
esqlc db.sc 


plcall_xdr_sun4.o: plcall_xdr.c 
$(RSH) $(SERVER) cc -c $(FLAGS) \ 
-0 $(MDBMS_PATH)/picall_xdr_sun4.o \ 
$(MDBMS_PATH)/picall_xdr.c 


plcall_svc_sun4.o: plcall svc.c 
$(RSH) $(SERVER) cc -c $(FLAGS) \ 
-o $(MDBMS_PATH)/plcall_svc_sun4.o \ 
$(MDBMS PATH)/plcall svc.c 


rpc, pl. server: rpc_pl_server.c \ 

picall_svc_sun4.o \ 

picall_xdr_sun4.o \ 

comcprolog_neu.c \ 

$(DEFINE) 
@echo "creating rpc_pl_server ..." 
$(RSH) $(SERVER) cc $(FLAGS) $(MDBMS_PATH)/rpc_pl_server.c \ 
$(MDBMS_PATH)/picall_svc_sun4.o \ 
$(MDBMS_PATH)/plcall_xdr_sun4.o \ 
-о $((MDBMS PATH)/rc pl server 
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prolog_parser: $(PLMODS) $(PLPATH)/diction.add 


Int: 


print: 


@echo "creating prolog_parser ..." 

sort $(PLPATH)/diction.body $(PLPATH)/diction.add -o $(PLPATH)/diction 

cat $(PLPATH)/diction.head $(PLPATH)/diction » $(PLPATH)/diction pl 

rm $(PLPATH)/diction.qof 

$(RSH) $(SERVER) qpc -c $(PLPATH)/iction.p! 

$(RSH) $(SERVER) qpc -D $(PLPATH)/interface -o $(PLPATH)/prolog parser 
mv $(MDBMS PATH)/prolog parser $((MDBMS PATH)/prolog parser.last Version 
cp $(PLPATH)/prolog parser $(MDBMS PATH)/prolog parser 


MC 
$(LINT) $? 
@touch Int 


$(FILES) 

@echo "Print the following files:" 
(918 $? 

@echo "Interrupt with Control c" 
@sleep 3 

pr $? | print 

@touch print 


Figure 5.1. Makefile 


implementation of db, he must just type "make db" at shell prompt. The execution module 


will be named db. In the rest of this section we present detailed information about the 


When the user of the MDBMS prototype wants to compile and link a new 


Unix utility make. 


by the Unix shell. Make is mostly used to sort out dependency relations among files. For 
example, a program must be generated linking object files and libraries, which in tum 
must be created from a programming language source files. If we modify one or more 
source files, we must re-link the program after recompiling all the sources which are 


dependent on the modified files. This process is normally repeated many times during the 


Make is a command generator. It generates a sequence of commands for execution 


course of a project. 
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It is this process that "make" greatly simplifies. By recording once and for all the 
specific relationships among a set of files, we can thereafter let make automatically 
perform all updating tasks. We need only to issue the command: 

$ make db 

Make then carries out those tasks necessitated by the project work since the 
previous make command. It achieves this by examining the file system to determine when 
the relevant files were last modified. For example, if file A depends on file B, and if file 
B was modified after file A, then file A must be "re-made"-compiled, linked, or whatever. 

We must define the dependencies between modules or files in a description file. 
This file is normally given the name Makefile. A description file consists of many entries. 
Each entry consists of a line containing a colon (the dependency line) and one or more 
command lines beginning with a tab. To the left of the colon on the dependency line are 
one or more targets; to the right of the colon are component files on which the targets 
depend. The tab-indented command lines then show how to make the targets out of their 
components. For example in Figure 5.1: 

db.c: db.sc 
esqlc db.sc 
means that db.c depends on the file db.sc. db.sc is executed (i.e., the program db.sc is 
precompiled by the INGRES SQL precompiler) only if db.sc is modified after the last 
time db.c was made. 
We can use any legitimate shell commands and filename pattern matching 


characters in a description file. For example some of the shell commands and filename 
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pattern-matching characters used in the description file in Figure 5.1 are sort, cat, rm, mv, 
cp and *.c. 

In a description file, we can use some macro definitions. A macro definition is a 
line containing an equals sign (=) and not preceded by a colon or a tab. Typically, macro 
definitions are grouped together at the beginning of the description file. The name to the 
left of the equals sign is assigned the string of characters following the equals sign. For 
example the line: 

MDBMS_PATH = /n/virgo/work/mdbms/MDBMS 
is a macro definition and subsequent references to 
$(MDBMS_PATH) 
are interpreted as 
/n/virgo/work/mdbms/MDBMS 

make also defines several "internal macros" that can simplify the description file. 
One of them is $?. $? evaluates to the list of components that are younger (i.e., more 
recently modified) than the current target. 

$@ evaluates to the current target name - that is, the target being made. 

In a description file, we can define suffix rules, which greatly reduces the 
complexity of our description files. For example, the suffix rule .c.o in Figure 5.1 
describes how to make a .o file from a .c file. 

Finally, an important command-line usage of make is: 


$make -f Makerose dbrose 
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which tells make to use the file "Makerose" as a description file to generate the target 


"Фбгове”. 
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VI. CONCLUSION AND SUMMARY 

Multimedia database management systems manage multimedia data such as image 
data and sound data in addition to formatted data. In this thesis, a prototype has been 
developed maintaining the standard data and media data to implement complex queries. 

This thesis outlined some sample applications in which multimedia data is required 
and presented the design and implementation of complex queries (i.e., nesting conditions 
and multiple selections) in addition to set operations (UNION, INTERSECTION and 
MINUS) and aggregate functions (COUNT, SUM, AVG, MAX, MIN). 

Having a nested query means a complete SELECT-FROM-WHERE query is within 
the WHERE-clause of another query. Nested queries are evaluated beginning from the 
innermost query to the outer queries. The intermediate result at each level is put into a 
temporary table and then the query at the next level is evaluated until the final result is 
received. 

Multiple selections refer to queries with arbitrarily many groups in the query and 
arbitrarily many conditions in each group. Each group is evaluated and its result is put 
into a temporary table. The results of all groups are recomposed using the set operations 
UNION or INTERSECTION to get the final result. 

Besides UNION and INTERSECTION, the set operation MINUS is implemented 


to let the user evaluate the difference of two tables. 
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Finally aggregate functions COUNT, SUM, AVG, MAX, MIN are implemented to 
make it possible to find the number of tuples, the sum, average, maximum and minimum 
of values for a given query. 

An interactive interface was implemented instead of using an extended version of 
SQL as the user interface. The idea behind this is to let the casual users use the system 
more easily. 

At present only sound data and image data are supported as media data types. 
However, it is possible to extend the capability of the system to handle other media types 
such as video, text, signals in a similar manner. 

Future works will concentrate on implementation of a graphical user interface for 
the system, the help utility and the transaction processing. For graphical user interface 
issue, some research is being done to find the best tool to implement the design done by 
[REF9]. After the graphical user interface is implemented, it is considered that a help 
utility for the entire system would let users with little background to use the system more 


easily. 


(КЕРІ) 


(КЕЕ2) 
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APPENDIX A - A COMPREHENSIVE EXAMPLE OF DESIGN AND USER 
INTERFACE OF COMPLEX QUERIES 
Since it is usually very difficult to express complex queries in words, we will 
present an artificial example to show how a complex query with a couple of groups and 
a couple of conditions in each group, some being simple conditions some nesting 
conditions, is evaluated according to the design we have presented in Chapter IV of this 
thesis. 
SQL Query: 
SELECT o_name, picture, voice 
FROM officer 
WHERE ( o_id IN 
(SELECT exo_id 
FROM ship 
WHERE (EXISTS 
(SELECT * 
FROM ship-weapon, ship 
WHERE ( w_name IN 
(SELECT w_name 
FROM weapon 


WHERE fire_range < 100 and weapon.picture (CONTAINS, "high 
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speed guided torpedo")) 
and ship.s_no = ship_weapon.s_no 
and s_no = "SSBN 727" 
and s_no IN 
(SELECT s_no 
FROM ship 
WHERE yr built > 1975)) 
or (NOT EXISTS 
(SELECT * 
FROM ship, ship. weapon 
WHERE ship.s no-ship weapon.s no and displacement > 15,000) 
and w. name IN 
(SELECT w name 
FROM weapon 
WHERE weapon.picture (CONTAINS, "Jong range missile 
against land targets"))) 
and ship.picture (CONTAINS, "nuclear submarine with many missiles")) 
or (type — "cruiser") 
and salary » 6000) 
or ( NOT EXISTS 
(SELECT * 


FROM ship, officer 


04 


WHERE officer.o id-ship.exo id and ship.picture (CONTAINS, "gas turbine 
powered ship") 
and yr. built « 1975)); 
The above query consists of four nesting levels and is evaluated as follows: 
Create Table Tl as: 
SELECT w name 
FROM weapon 
WHERE fire. range « 100 and weapon.picture (CONTAINS, "high 
speed guided torpedo"); 
Create Table T2 as: 
SELECT s. no 
FROM ship 
WHERE yr built » 1975; 
Create Table T3 as: 
SELECT * 
FROM ship, ship weapon 
WHERE ship weapon.s no-ship.s no and displacement > 15,000; 
Create Table T4 as: 
SELECT w name 
FROM weapon 
WHERE weapon.picture (CONTAINS, "long range missile against land 


targets"); 
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Create Table T5 as: 

SELECT $ 

FROM ship_weapon, ship 

WHERE ship.s_no=ship_weapon.s_no and w_name IN T1; 
Create Table T6 as: 

SELECT * 

FROM ship_weapon,ship 

WHERE ship.s_no=ship_weapon.s_no 

and s_no="SSBN 727"; 

Create Table T7 as: 

SELECT * 

FROM ship_weapon, ship 

WHERE ship.s_no=ship_weapon.s_no and s_no IN T2; 
Create Table T8 as: 

SELECT * 

FROM ship_weapon, ship 

WHERE ship_weapon.s_no=ship.s_no and NOT EXISTS T3; 
Create Table T9 as: 

SELECT * 

FROM ship_weapon, ship 


WHERE ship.s_no=ship_weapon.s_no and w_name IN T4; 
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Create Table R1 as: 

(T5 INTERSECT T6 INTERSECT T7) UNION (T8 INTERSECT T9); 
Create Table T10 as: 

SELECT exo_id 

FROM ship 

WHERE EXISTS R1; 
Create Table T11 as: 

SELECT exo. 1а 

FROM ship 

WHERE ship.picture (CONTAINS, "nuclear submarine with many missiles"); 
Create Table T12 as: 

SELECT exo id 

FROM ship 

WHERE type="cruiser’; 
Create Table R2 as: 

(T10 INTERSECT T11) UNION T2 
Create Table T13 as: 

SELECT * 

FROM ship, officer 

WHERE officer.o id-ship.exo id 

and ship.picture (CONTAINS, "gas turbine powered ship") 


and уг built « 1975; 
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Create Table T14 as: 
SELECT o_name, picture, voice 
FROM officer 
WHERE o_id IN R2; 
Create Table T15 as: 
SELECT o_name, picture, voice 
FROM officer 
WHERE salary > 6000); 
Create Table T16 as: 
SELECT o_name, picture, voice 
FROM officer 
WHERE NOT EXISTS T13; 
Create Table RESULT as: 
(T14 INTERSECT T15) UNION T16; 
The user interface for the SQL query given at the beginning of this Appendix is as 


follows: 


Multimedia Database Management System 


1. Create Table 

2. Insert Tuple 

3. Retrieve 

4. Delete 

5. Modify 

6. Print out current data information(test purpose) 
0 


. Quit 
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Select your choice :: 3 


Your Selection is RETRIEVAL! 

Enter table name to hold the temporary result of the query: T1 
Select the table(s) separate by comma <,> : (<?> for HELP!) 
SELECT TABLE(S): weapon 


Table weapon 

Select the attribute(s) separated by comma <,> : (<?> for HELP!) 
(Hit <ESC>for no attribute) 

SELECT ATTRIBUTE(S) : w_name 


Any condition ? (y/n): у 
Group condition ? (y/n): y 


Retrieval Operations Menu 

0. Simple Condition 

1. tablel where EXISTS table2 

2. tablel where NOT EXISTS table2 
3. tablel IN table2 

4. tablel NOT IN table2 


Select your choice :: 0 


Enter attribute: fire_range 
Enter the condition: <100 
Where fire_range < 100 


There are 3 records that match the query 
record id 1 w_name: Vulcan Phalanx 
record id 2 w_name:Sea Sparrow 
record id 3 w_name:Mk48 Torpedo 
End group ? :n 


Retrieval Operations Menu 











0. Simple Condition 

1. tablel where EXISTS table2 

2. tablel where NOT EXISTS table2 
3. tablel IN table2 

4. tablel NOT IN table2 


99 


Oo A ATT M 








Select your choice :: 0 


Your Selection is Simple Condition 

Enter attribute: picture 

Please enter your query description 

* noun phrases separate by commas and end with an exclamation mark 
* sentence end with a period. 

(end whole description with an empty line): 

high speed guided torpedo! 

Searching ..... 

Below is the result of the first 2 conditions in group 1 : 

record id 1 w_name:Mk48 Torpedo 


End group ?:y 


Below is the result of group 1: 
record id | w_name:Mk48 Torpedo 


End condition ?:y 


Below is the final result of all groups : 
record id 1 w_name:Mk48 Torpedo 


If you want to intersect / union / minus any two tables: 





1. INTERSECT two tables 
2. UNION two tables 

3. MINUS 

0. Quit 


Select your choice :: 0 











More selections at this level ? (y/n): y 


Enter table name to hold the temporary result of the query: T2 
Select the table(s) separate by comma <,> : (<?> for HELP!) 
SELECT TABLE(S): ship 


Table ship 

Select the attribute(s) separated by comma <,> : (<?> for HELP!) 
(Hit <ESC>for no attribute) 

SELECT ATTRIBUTE(S) : s no 
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Any condition ? (y/n): у 
Group condition ? (y/n): n 


Retrieval Operations Menu 














0. Simple Condition 

1. tablel where EXISTS table2 

2. tablel where NOT EXISTS table2 
3. tablel IN table2 

4. tablel NOT IN table2 


Select your choice :: 0 


Enter attribute: yr built 
Enter the condition: >1975 
Where yr_built>1975 


There are 2 records that match the query 
record id 1 s no:DDG967 
record id 2 s no:SSBN727 


More selections at this level ? (y/n): y 


Enter table name to hold the temporary result of the query: T3 
Select the table(s) separate by comma <,> : (<?> for HELP!) 
SELECT TABLE(S): ship, ship_weapon 


Please enter your join condition 
(<?> for help!) : ship.s_no=ship_weapon.s_no 


Table ship 

Select the attribute(s) separated by comma <,> : (<?> for HELP!) 
(Hit <ESC>for no attribute) 

SELECT ATTRIBUTE(S) : s_no 


Table ship_weapon 

Select the attribute(s) separated by comma <,> : (<?> for HELP!) 
(Hit <ESC>for no attribute) 

SELECT ATTRIBUTE(S) : <ESC> 


Any condition ? (y/n): y 
Group condition ? (y/n): n 
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Retrieval Operations Menu 











0. Simple Condition 

1. tablel where EXISTS table2 

2. tablel where NOT EXISTS table2 
3. tablel IN table2 

4. table] NOT IN table2 


Select your choice :: 0 








Enter attribute: displacement 
Enter the condition: >15,000 


There are 2 records that match the query 
record id 1. s no:CV63 
record id 2 s no:SSBN727 


More selections at this level ? (y/n): y 


Enter table name to hold the temporary result of the query: T4 
Select the table(s) separate by comma <,> : (<?> for HELP!) 
SELECT TABLE(S): weapon 


Table weapon 

Select the attribute(s) separated by comma <,> : (<?> for HELP!) 
(Hit <ESC>for no attribute) 

SELECT ATTRIBUTE(S) : w_name 


Any condition ? (y/n): у 
Group condition ? (y/n): n 


Retrieval Operations Menu 








0. Simple Condition 

1. tablel where EXISTS table2 

2. tablel where NOT EXISTS table2 
3. tablel IN table2 

4. tablel NOT IN table2 


Select your choice :: 0 


Enter attribute: picture 
Please enter your query description 
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* noun phrases separate by commas and end with an exclamation mark 
* sentence end with a period. 

(end whole description with an empty line): 

long range missile against land targets! 


There is 1 record that match the query 
record id 1 w. no: Tomahawk 


More selections at this level 7 (y/n): n 
More levels ? (y/n): y 


Enter table name to hold the temporary result of the query: R1 


Select the table(s) separate by comma <,> : (<?> for HELP!) 
SELECT TABLE(S): ship_weapon, ship 


Please enter your join condition 


(<?> for help!) : ship.s_no=ship_weapon.s_no 


Table ship_ weapon 

Select the attribute(s) separated by comma <,> : (<?> for HELP!) 
SELECT ATTRIBUTES) 

(Hit <ESC> for no attribute) 

: S_no 

Table ship 

Select the attribute(s) separated by comma <,> : (<?> for HELP!) 
SELECT ATTRIBUTE(S) 

(Hit <ESC> for no attribute) 

: <ESC> 


Any condition ? (y/n): y 
Group condition ? (y/n): y 


Retrieval Operations Menu 











0. Simple Condition 

1. tablel where EXISTS table2 

2. tablel where NOT EXISTS table2 
3. tablel IN table2 

4. tablel NOT IN table2 
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Select your choice :: 3 
Your Selection is tablel IN table2 


Enter the temp table name related to IN : T1 
Enter attribute for table ship weapon for condition of IN : w name 


Table ** T1 ** 
SELECT ATTRIBUTE (only one attribute!): w name 


There is 1 record that match the query 
record id 1. s no : SSBN727 


End group ? :n 


Retrieval Operations Menu 

0. Simple Condition 

1. tablel where EXISTS table2 

2. tablel where NOT EXISTS table2 
3. table] IN table2 

4. table1 NOT IN table2 


Select your choice :: 0 














Enter table name:ship_weapon 
Enter attribute: s_no 
Enter the condition: ="SSBN727" 


Below is the result of the first 2 conditions in group 1: 
There is 1 record that match the query 
record id 1 s no : SSBN727 


End group ? :n 


Retrieval Operations Menu 











0. Simple Condition 

1. tablel where EXISTS table2 

2. tablel where NOT EXISTS table2 
3. tablel IN table2 
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4. table1 NOT IN table2 





Select your choice :: 3 
Your Selection is tablel IN table2 


Enter the temp table name related to IN : T2 
Enter attribute for table ship weapon for condition of IN : s no 


Table ** T2 ** 
SELECT ATTRIBUTE (only one attribute!): s no 


Below is the result of the first 3. conditions in group 1 : 
record id] s no: DDG967 
record id 2 s no : SSBN727 


End group ? :y 


Below is the result of group 1 : 
record id 1 s no : DDG967 
record id2 5 по: 55ВМ727 


End condition ? :n 


Retrieval Operations Menu 


0. Simple Condition 

1. tablel where EXISTS table2 

2. table] where NOT EXISTS table2 
3. tablel IN table2 

4. table] NOT IN table2 


Select your choice :: 2 
Your Selection is tablel where NOT EXISTS table2 


Enter the temp table name related to NOT EXISTS : T3 


Please enter your join condition 
between table ship_weapon and ** T3 ** : T3.s_no=ship_weapon.s_no 


There are 2 records that match the query 


record id 1 s no:DDG967 
record id 2. s no:SSBN727 
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End group ? (у/п):п 


Retrieval Operations Menu 


SS GE ee Ge Gee eee eS шшк | 
Se Ss EE ee ee Ge ee eee елей 


0. Simple Condition 

1. tablel where EXISTS table2 

2. tablel where NOT EXISTS table2 
3. tablel IN table2 

4. tablel NOT IN table2 


Select your choice :: 3 
Your Selection is tablel IN table2 














Enter the temp table name related to IN : T4 
Enter attribute for table ship weapon for condition of IN : w name 


Table ** T4 ** 
SELECT ATTRIBUTE (only one attribute!); w name 


There is one record that match the query: 
record id 1. s no : SSBN727 


Below is the result of first two conditions in group 2: 
record id 1 s no: SSBN727 


End group ? :y 


Below is the result of group 2: 
record id 1 s no: SSBN727 


End condition ? (y/n): y 


Below is the final result of all groups : 
record id 1 5 по: SSBN727 


More selections at this level ? (y/n): n 
More levels ? (y/n): y 


Enter table name to hold the temporary result of the query: R2 


Select the table(s) separate by comma <,> : (<?> for HELP!) 
SELECT TABLE(S): ship 
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Table ship 

Select the attribute(s) separated by comma <,> : (<?> for HELP!) 
SELECT ATTRIBUTE(S) 

(Hit <ESC> for no attribute) 

: exo_id 


Any condition ? (y/n): y 
Group condition ? (y/n): y 


Retrieval Operations Menu 


0. Simple Condition 

1. tablel where EXISTS table2 

2. table! where NOT EXISTS table2 
3. table1 IN table2 

4. table1 NOT IN table2 




















Select your choice :: 1 
Your Selection is tablel where EXISTS table2 


Enter the temp table name related to EXISTS : R1 


Please enter your join condition 
between table ship_weapon and ** R1 ** : R1.s_no=ship.s_no 


There are 3 records that match the query 
record id 1 exo. id:201 
record id 2 exo. 1d:203 
record id 3. exo. 1d:204 


End group ? (y/n):n 


Retrieval Operations Menu 











0. Simple Condition 

1. table] where EXISTS table2 

2. table1 where NOT EXISTS table2 
3. tablel IN table2 

4. tablel NOT IN table2 








Select your choice :: 0 
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Your Selection is Simple Condition 

Enter attribute: picture 

Please enter your query description 

* noun phrases separate by commas and end with an exclamation mark 
* sentence end with a period. 

(end whole description with an empty line): 

nuclear submarine with many missiles! 


Below is the result of the first 2 conditions in group 1: 
record id 1 exo id:204 


End group ? (y/n): y 


Below is the result of group 1 : 
record id 1. exo 1d:204 


End condition ? (y/n): n 


Retrieval Operations Menu 











0. Simple Condition 

l. tablel where EXISTS table2 

2. table] where NOT EXISTS table2 
3. tablel IN table2 

4. tablel NOT IN table2 


Select your choice :: 0 


Your Selection is Simple Condition 
Enter attribute: type 
Enter condition : ="cruiser” 


There are 2 records that match the query: 
record id 1 exo id:201 

record 14 2 ехо 14:202 

End group ? (y/n): y 

Below is the result of group 2: 


record id 1 exo id:201 
record іа 2 ехо 14:202 
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End condition ? (y/n): у 


Below is the final result of all groups: 
record id 1 exo 1d:201 
record id 2 ехо 14:202 
record id 3 exo 1d:204 


More selections at this level ? (y/n): y 
Enter table name to hold the temporary result of the query: T13 


Select the table(s) separate by comma <,> : (<?> for HELP!) 
SELECT TABLE(S): ship 


Table ship 

Select the attribute(s) separated by comma <,> : (<?> for HELP!) 
SELECT ATTRIBUTES) 

(Hit <ESC> for no attribute) 

; exo 1d 


Any condition ? (y/n): y 
Group condition ? (y/n): y 


Retrieval Operations Menu 

0. Simple Condition 

1. tablel where EXISTS table2 

2. table1 where NOT EXISTS table2 
3. tablel IN table2 

4. tablel NOT IN table2 


Select your choice :: 0 














Enter attribute: yr_built 
Enter the condition: <1975 


There is 2 record that match the query 
record id 1 exo 1d:100 

record id 2 exo_id:101 

End group ? :n 


Retrieval Operations Menu 
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0. Simple Condition 

1. tablel where EXISTS table2 

2. tablel where NOT EXISTS table2 
3. tablel IN table2 

4. table1 NOT IN table2 


Select your choice :: 0 


Your Selection is Simple Condition 

Enter attribute: picture 

Please enter your query description 

* noun phrases separate by commas and end with an exclamation mark 
* sentence end with a period. 

(end whole description with an empty line): 

gas turbine powered ship! 


There are two records that match the query: 
record id 1 exo 14:100 
record id 2 exo 14:101 


End group ? (y/n): y 

Below is the result of the first 2 conditions in group 1: 
record id 1 exo_id:100 

record id 2 exo id:101 

End group ? (y/n): y 

Below is the result of group 1 : 
record id 1 exo id:100 

record id 2 ехо 14101 

End condition ? (y/n): y 

Below is the final result of all groups: 
record id 1 exo 1d:100 

record id 2 exo 1d:101 


More selections at this level ? (y/n): n 
More levels ? (y/n): y 
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Enter table name to hold the temporary result of the query: RESULT 


Select the table(s) separate by comma <,> : (<?> for HELP!) 
SELECT TABLE(S): officer 


Table officer 

Select the attribute(s) separated by comma <,> : (<?> for HELP!) 
SELECT ATTRIBUTE(S) 

(Hit <ESC> for no attribute) 

: O_Name, picture, voice 


Any condition ? (y/n): y 
Group condition ? (y/n): y 


Retrieval Operations Menu 


0. Simple Condition 
1. tablel where EXISTS table2 
2. table] where NOT EXISTS table2 
3. table1 IN table2 
4. table] NOT IN table2 
Select your choice :: 3 
Your Selection is tablel IN table2 











Enter the temp table name related to IN : R2 
Enter attribute for table officer for condition of IN : o id 


Table ** R2 ** 
SELECT ATTRIBUTE (only one attribute!): exo id 


There is 3 record that match the query 

record id 1 o name:Pongsuwan picture id is 1. voice id is 1 
record id 2 o name:R. Stewart picture id is 2 voice id is 2 
record id 3. o rLame:H. Aygun picture id is 3 voice id is 3 


End group ? :n 
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Retrieval Operations Menu 





0. Simple Condition 

1. table] where EXISTS table2 

2. tablel where NOT EXISTS table2 
3. table] IN table2 

4. table1 NOT IN table2 











Select your choice :: 0 


Enter attribute: salary 
Enter the condition: >6000 


There is 1 record that match the query: 
record id 1 o name:Pongsuwan picture id is 1 voice id is 1 


Below is the result of the first two conditions in group 1: 
record id 1 o name:Pongsuwan picture id is 1 voice id is 1 


End group ? :y 


Below is the result of group 1: 
record id 1 o name:Pongsuwan picture id is 1 voice id 15 1 


End condition ? (y/n): n 


Retrieval Operations Menu 


0. Simple Condition 

1. table] where EXISTS table2 

2. table] where NOT EXISTS table2 
3. table] IN table2 

4. table] NOT IN table2 


Select your choice :: 2 
Your Selection is tablel where NOT EXISTS table2 


Enter the temp table name related to NOT EXISTS : T13 


Please enter your join condition 
between table officer and ** T13 ** : officer.o id-T13.exo id 


There are 5 records that match the query 
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record id 1 o name:Y. Atila picture id is 8 voice id is 8 
record id 2 o name:R. Stewart picture id is 2. voice id is 2 
record id 3 o name:H. Aygun picture id is 3 voice id is 3 
record id 4 o name:S. Pei — picture id is 7 voice id is 7 
record id 5 o name:A. Kara picture id is 9 voice id is 9 


End group ? (y/n): y 


Below is the result of group 2: 

record id 1 o name:Y. Atila picture id is 8 voice id is 8 
record id 2 o name:R. Stewart picture id is 2 voice id is 2 
record id 3 o name:H. Aygun picture id is 3. voice id is 3 
record id 4 o name:S. Pei picture id is 7 voice id is 7 
record id 5 o name:A. Kara picture id is 9 voice id is 9 


End condition ? (y/n): y 


Below is the final result of all groups: 

record id 1 o name:Pongsuwan picture id is 1 voice id is 1 
record id 2 o name:R. Stewart picture id is 2 voice id is 2 
record id 3 o name:H. Aygun picture id is 3. voice id is 3 
record id 4 o name:S. Pei picture id is 7 voice id is 7 
record id 5 o name:Y. Atila picture id is 8 voice id is 8 
record id 6 o name:A. Kara picture id is 9 voice id is 9 


Do you want to see any image data ? (y/n):y 
Which tuple’s image do you want to see? (enter record id) : 5 


Record no 5 filename :/tmp_mnt/n/virgo/work/mdbms/MDBMS/91163.173948 
Show image .... 

The following photo has been found: 

Number: 5 

Description: 

>>black hair,big nose,thin body, tall person with glasses! 

<< 

Do you want to see the photo?: y 


*** The photo is displayed on the screen *** 
Do you want to see more image data ? (Y/N): n 


Which tuple’s sound do you want to hear? (enter record id): 2 
Sound management 
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Кесога по 2 
Play the sound ? (y/n): y 


*** Sound is play-backed *** 


Do you want to hear more sound data ? (Y/N): n 
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APPENDIX B - PROGRAM CODE OF RETRIEVAL OPERATIONS 


[Paak ak ak ake ate abe ake ke ke ake ake abe abe abe ake ae ake ake ake ake ake abe abe ahe ae ake ak ak ake ake abe aÃe ake ale ale ake ak ak ake ake ake ae e ake ake ake ЖЖЖ TOIT TOI TORTI 


Title : Retrieve.c 

Author : Aygun/ Stewart 

Date : August 1991 

History  : Improvements on Retrieval operations to include complex 


query processing. Also contains the procedures for modify 
and deletion operations. An if clause provides the ability 
to switch options for retrieval,modify or deletion of data 
Description:This module implements the retrieval process in the 
Multimedia Database System. 
ake afe afe afe afe afe afe afe afe afe afe ke oc afe afe afe ake ake afe afe afe afe afe afe afe afe af ake ake ake ake ake ake af ake ae ake ake ake ake ake afe ae afe afe afe afe afe afe afe afe afe afe afe afe afe afe afe afe afe afe afc ake oe ok oke ake ake ake ake ake ake 
Export Interface : 
retrieve((RTRVE_MODE): 
incorporates the retrieval process. The user is asked to 
enter the name of table(s) and attribute(s) he wants to 
retrieve. If he does not know the names of the tables or 
attributes, he can type "?" to list all the tables and 
attributes in the catalog. 
retrieve( DEL MODE): 
incorporates the deletion process. The user is asked to 
enter table name and condition for deletion. 
retrieve( MOD MODE): 
incorporates the modification process. The user is asked to 
enter table name and condition for modification. 
ak ake ae afe afe afe afe afe afe afe afe afe afe afe afe afe afe afe afe afe afe ae afe afe afe ae afe afe afe afe afe afe ЖЖЖ ЖЖЖ ЖЖ ЖЕ ate ate ake ale ake ake ake ake ake ake ake ake ake ake ate ake ake ate ake af к ж 
Import Interface : 


print_all_table() : Prints out the table catalog information on screen 
from InsertModule.c 


check_table_name(): Checks the table_name if it is duplicate 
get_media_name() : Get media table name by appending table_key at the 
end of att_name. 
from CreateModule.c 


yes no answer() : Gets yes or no answer from the user. 


clr_scr() : Clears the screen. 
from Userlnterface.c 
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play_sound(filename):Sends command from SUN to PC to play the SOUND  * 

media file. 
from SoundModule.c 

xjcoke kk koe oke ke ke ke oe ke ke ke ke she Ж Ж ke oe ke ok жж жж ж К к ke ke ke ke ke oe ke oe ke ke joke Ж ЖЖ ЖЖ Ж/ 

#include <stdio.h> 

#include <string.h> 

#include <pixrect/pixrect_hs.h> 

#include <sys/wait.h> 

#include <suntool/sunview.h> 

#include <suntool/canvas.h> 

#include "defines.h" 

ftinclude "errors.h" 

include "struct.h" 

#include "Global Variables.h" 

ftinclude «rpc/rpc.h» 

#include "plcall.h" 

#include "defines.h" 

#include "errors.h" 


char c; 

char temp media name[3]; 

char join condition[100]; 

int look_more=0; /* use for loop the cursor */ 
struct select att satt[10]; 

struct select tab stab[10]; 

struct group group. count[10]; 

int o,p,k,numcon,numgroup,icond; 
STR, name tab[10]; 

char *all condition; 

char condition[100]; 

/* Selection attribute */ 

/* Condition attribute */ 

STR, name att[10]; 

/* Each group of attribute */ 

int att group[10]; 

/* Condition type of each attribute 0 for formatted 1 for image 2 for sound*/ 
int contype[10]; 

/* Media attribute for description */ 
STR name media att[10]; 

int number media; 

/* Condition for each attribute */ 
char con[10][100]; 

/* Attribute type for each select */ 
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STR. name atttype[10]; 

int cond,gcond,i_cond[10}],m=0,x=0,y=0,n=0,0=0; 
char buff[100],a,yes no answer(); 

char temp table[20]; 

char temp table1[20]; 

char temp table2[20]; 

char temp. table3[5]- ( 'h' ,'u','s','i','4']; 
char temp_table4[5]={’h’,’u’,’s’,’i’,’5”); 
char temp_table8[5]=(’h’,’u’,’s’,’0’,’1’); 
char temp_table9[5]=(’h’,’u’,’s’,’0’,’2’}; 
char temp_table10[5J=(’h’,’u’,’s’,’o0’,’3’}; 
char temp  table11[5]2('h','u','s','o','4'); 
char group! [3]=(’g’,’r’,’1’); 

char group2[3J={’g’,’r’,’2’}; 

char condition_for_nested[100]; 

char attribute for nested[20]; 

char join for nested[99]; 

int more selections; 

int more levels; 

int aggregate found; 

сһаг (15-70, уа) 9217); 
cnamt2/Si=(’t’,’_’,’a’,’_’,’2’}; 

char t3[5]=(’t’,’_’,’a’,’_’,’3’}; 

char t4[5]=(’t’,’_’,’a’,’_’,’4’}; 

char wrong_descrp = TRUE; 

int act_media_count; 

int act media list[10]; 

int media counter-0; 

int formatted flag; 

int image flag; 

int sound flag; 


БЕРЕКЕ ЖК Еж ЖЖЖ ЖЖК ЖК ЖЖЖ He Ae He He Ae Ae Ae He Hee Me He He Ac Ж Ж Ж He Me Ae He He He He He He He ake 


Procedure initialize the array to empty 
Initialize all parameters used in the retrieve to null 


ЖКЖ Ae He He He He He He He Ae He He He He He de He He He Ae He He he fe He Ae He fe he He He fe ode He He He fe ode he ok obe oj he de He He oe fe heh oe oe oe hehe he ok oe he he к Ж 


void init() 

( 
int i,j; 
icond=0; 
gcond=0; 
numgroup=0; 
numcon-0; 
for (120;1«10;i--) ( 
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for (j=0;j < 13;j++) | 
satt[1].t name[j] =0; 
satt[i].a_name[j] =0; 
stab[i].t_name[j] =0; 
att[1][j]-0; 
tab[1][j]20; 
| 
for (j=0;j<100;j++) { 
con[i][j]- '0"; 
| 
| 
) 
J e sehe e she he ahe ahe ahe 34e se she sbe ahe she she sha she afe ahe ae afe afe ahe sfa ate afe ahe ahe abe 34e abe ale ahe ahe 34e ae ate mhe CAE He АЯ АА ЖК ЖЖЖЖ ЖКНЫН M DLE 
This procedure get the table name, attribute name of that table 
and then retum the attribute type to the user 
JR кк кокк к e sj deje eie sede e de tee beoe eie meh e o ORC Se to ЕНЕ А 
getatttype(tab name,att name,att type) 
STR name tab name; 
5ТЕ name att name; 
STR name att type; 
| 
int 1,j,k,found,count; 
found = 0; 
for (i=0;1 < table_count;i++) { 
if (strcmp(table_array[i].table_name,tab_name)==0) ( 
j = table_array[i].att_entry; 
count = table_array[i].att_count; 
i= 1000; 
) 
) 
for ( k=0;k < count;k++) { 
if (strcmp(att_array[j].att_name, att_name)==0) { 
strcpy(att_type,att_array[j].data_type); 
/* For test only */ 
printf("\n%s" ,att_array[j].att_name); 
printf(/(N%s\n" ,att_type); 
found = 1; 
k = 1000; 
} 
j = att_array[j].next_index; 
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рк кан ИЕ ткен жн жаа онко к ЖЖК КК ЖЖ кж ЖАК Ж ж /Ж 


procedure to process the sound condition 

put the result in the media tale [number condition] for process later 

ИДО к RUN DONOR TOR ОНАН ЕЖ Ж Жж 
void process_icon3(query_phrase,number) 

char query phrase[DESCRLEN- 1]; 

int number; 

| 

int id; 

char answer, repeat, yes_no_answer (),con_number,medianum; 

int i, query_err, query_len, in_len, f_flag,found; 

struct pixrect *pr; 

colormap_t cm; 

char descr[DESCRLEN- 1]; 

int show. pid, wait pid; 

union wait status; 

int imageno; 

printf (^nEntering RETRIEVE ...\n"); 

cm.type - RMT NONE; 

cm.length = 0; 

cm.map[0] = NULL; 

cm.map[1] = NULL; 

cm.map[2] = NULL; 

/* this is absolutely necessary!!!! Otherwise pr_load_colormap might 
not allocate storage for the colormap, if the garbage found in 
the cm structure seems to make sense. The result, of course, is 
segmentation fault. This bug was very hard to find. */ 


/* # line 193 "p2.sc" */ /* create table */ 
| 

IIsgInit((char *)0); 
IIwritedb("create "); 
temp media name[0]z'p'; 
medianum=number+48; 
temp_media_name[1]=medianum; 
temp_media_name[2]=0; 
printf("\n%s" ,temp_media_name),; 
IIwritedb(temp media name); 
IIwritedb("("); 
IIwritedb("s id-i4)"); 
IIsqSync(O,(char *)0); 


) 
/* # line 194 "p2.sc" */  /* host code */ 
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printf(""The query description now is:\n>>%s<<\n\n" ,query_phrase); 


printf ("Searchqing ..... н); 
/* exec sql declare cl cursor for 
select i id, PIXRECT (i image), COLORMAP (1 image), 
DESCRIPTION (i image) 
from emp imgl 
where SHOWS (i image, query. phrase); 
The statement is deleted by the preprocessor. 
However, the output functions and the selection conditions 
associated with the cursor cl will be used later. 
The following declarations are generated: */ 


| 
int ISerrorcl; 
char ISerrmccl1 [ERRLEN- 1]; 
char *ISfncl[FILENAMELEN 4 1]; 
char *ISdescrci[DESCRLEN + 1]; 


sqlca.sqlcode = Q; 
ISerrncc1[0] 2 0’; 


/* exec sql open cl; */ 
/* exec sql whenever not found go to closecl; */ 


/* translated by preprocessor into: */ 
if ( ISerrorcl = ISshows_open("“image",'i_image" ,ISfncl ,query_phrase,ISermmcc1) 


| 
sqlca.sqlcode = ISerrorcl; 
if ( sqica.sqlcode == QUERY_WORD_ERR I 


sqica.sqlcode == QUERY_STRUCTURE_ERR ) 
strcpy(sqlca.sglerrm.sglerrmc,ISerrmcc1); 


/* end of preprocessor output for open cl */ 
if ( !sqlca.sqlcode ) 


| 
Ғ Пар - 0; 
for (;;) 
( 
/* exec sql fetch cl 
into :imageno, :pr, :cm, :descr; 
This is translated by the preprocessor into: */ 

i f ( I Serrorc IÍ 

image ",ISfncl,query phrase,ISerrmcc1) ) 


te tte 


ISshows_fetch("image","i_ 
sqica.sqlcode = ISerrorcl; 
/* printf("main.sc(ISfncl): 9osw", ISfncl); */ 


if ( sqlca.sqlcode 2 NOT. FOUND ) 
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goto closecl; 
f flag = 1; 
if ( !sqlca.sqlcode ) 
| 
/* # line 653 "pl.sc" */ /* select */ 
strcpy (table array[table index].table name, tab[number]); 
found = check table name(); 
table cursor - table entry; 
strcpy(media, name,att[number]); 
get media name(); 
printf(" 96s" ,media name); 
{ 
IIsgInit(&sqlca); 
IIwritedb("retrieve(imageno="); 
IIwritedb(media name); 
IIwritedb(".s id,ISdescrc12"); 
IIwritedb(media name); 
IIwritedb(".descrp)w"); 
IIwritedb("here "); 
IIwritedb(media name); 
IIwritedb(".f id2"); 
IIsetdom(1,32,0,ISfnc1); 
IIwritedb(" "); 
IIsqRinit(&sqlca); 
if (lerrtest() == 0) { 
if (IInextget() != 0) { 
IIretdom(1,30,4,&imageno); 
IIretdom(1,32,0,ISdescrc1); 
) /* IInextget */ 
IIsqFlush(&sqlca); 
) /* Ilerrtest */ 
) 
/* # line 657 "pl.sc" */ /* host code */ 
if (!sqlca.sqlcode) 
| 
ISerrorcl = ISdescription (ISfncl, ISdescrcl, descr); 
sqlca.sqlcode 2 ISerrorcl; 
) 
else 
sqica.sqicode = PROGRAM_ERR; 
) 
/* end of preprocessor output for fetch cl */ 
if (sqlca.sqlcode) 
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goto closecl; 
id = imageno; 
/* # line 270 "p2.sc" */  /* insert */ 
| 
IIsgInit((char *)0); 
IIwritedb(" append to "); 
IIwritedb(temp media name); 
IIwritedb("(s id2"); 
IIsetdom(1,30,4.,&id); 
IIwritedb(" )"); 
IIsqSync(2,(char *)0); 
| 
/* # line 272 "p2.sc" */ /* host code */ 
} /* end for loop of cursor cl */ 
closecl: 
/* exec sql close cl; */ 
/* translated by the preprocessor into: */ 
s gq lca. 8 Дош - 
ISshows. close("image","i image",ISfnc1,query. phrase,ISerrmcc1); 
/* # line 693 "pl.sc" */ /* host code */ 
) /* end of successful open c1; correct query description */ 
) /* end of preprocessor declaration block */ 
if ( sqlca.sqlcode == QUERY_WORD_ERR ) 
( 
printf("The system cannot understand the word 
>>%s<<\n" sqlca.sglerrm.sqlerrmc); 
query_err = 1; 
) 
if ( sqlca.sqlcode == QUERY_STRUCTURE_ERR ) 
{ 


printf("The system cannot interpret the 
phrase\n>>\n%s<<\n" ,sqica.sqlerrm.sqlerrmc); 
query_err = I; 
) 
if ( query_err ) 
| 
) 
) 
if ( !f flag ) 
printf("There are no media matching that query description"); 
if ( sqlca.sqlcode ) 
printf("An error has occured while accessing the database\n\ 
sql error code: Y%d\n", sqlca.sqlcode); 
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clr_scr(); 
| /* end of retrieve photo () */ 
кк RIGOR OOOO OOOO ЖЖЖ ЖЖЖЖЖЖЖЖЖжж/ 
procedure to process the image condition put the result in the media tale [number 
condition] for process later. 
ЧИЕ н еч ЗЫ ee ee Ян ЖЖЖ Ж 
void process_icon2(query_phrase,number) 
char query. phrase[DESCRLEN-1]; 
int number; 
| 

int id; 

char answer, repeat, yes_no_answer (),con_number,medianum; 

int i, query, err, query len, in_len, f_flag,found; 

Struct pixrect *pr; 

colormap t cm; 

char descr[DESCRLEN- 1 ]; 

int show. pid, wait pid; 

union wait status; 

int imageno; 

printf (^nEntering RETRIEVE ..An"); 

cm.type - RMT NONE; 

cm.length = 0; 

cm.map[0] = NULL; 

cm.map[1] = NULL; 

cm.map[2] = NULL; 

/* this is absolutely necessary!!!! Otherwise pr_load_colormap might 
not allocate storage for the colormap, if the garbage found in 
the cm structure seems to make sense. The result, of course, is 
segmentation fault. This bug was very hard to find. */ 

| 

/* # line 193 "p2.sc" */  /* create table */ 

| 

IIsgInit((char *)0); 
IIwritedb("create "); 
temp media name[0]-'p'; 
medianum=number+48; 
temp_media_name[1]=medianum; 
temp. media name[2]-0; 
printf(^n96s",temp media name), 
IIwritedb(temp media name); 
IIwritedb(" (^); 
IIwritedb("1 idzi4)"); 
IisqSync(O,(char *)0); 
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| 
/* # line 194 "p2.sc" */ /* host code */ 
printf("The query description now is:\n>>%s<<\n\n" ,query_phrase); 


printf ("Searching ..... "у, 

/* exec sql declare cl cursor for 

select i_id, PLXRECT (i_image), COLORMAP (i_image), 
DESCRIPTION (i_image) 
from emp imgl 
where SHOWS (i image, query. phrase); 
The statement is deleted by the preprocessor. 
However, the output functions and the selection conditions 
associated with the cursor c1 will be used later. 
The following declarations are generated: */ 


| 
int ISerrorc1; 
char ISerrmccl[ERRLEN+ 1]; 


char JSfncl[FILENAMELEN + 1]; 
char ISdescrc1|( DESCRLEN + 1]; 
sqlca.sqlcode = 0; 
ISerrmcc1[0] 2 0’; 
/* exec sql open cl; */ 
/* exec sql whenever not found go to closecl; */ 
/* translated by preprocessor into: */ 
", 1 image" ,ISfncl,query. phrase,ISerrmccl) 


if ( ISerrorcl = ISshows_open("image 


\ 

sqica.sqlcode = ISerrorcl; 

if ( sqlca.sqlcode == QUERY WORD ERR II 
sqica.sqlcode == QUERY_STRUCTURE_ERR ) 

strcpy(sqlca.sqlerrm.sqlerrmc,ISerrmcc1); 


| 
/* end of preprocessor output for open cl */ 
if ( !sqlca.sqlcode ) 


| 
f flag = 0; 
for (;;) 

| 
/* exec sql fetch cl 


into :imageno, :pr, :cm, :descr; 
This 1s translated by the preprocessor into: */ 
IS errorc 1 


i f ( 
i image" ,ISfncl,query phrase,ISerrmcc1) ) 


ee ee 


ISshows fetch(" image", 
sqlca.sglcode - ISerrorcl; 
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/* printf("main.sc(ISfncl) %s\n", ISfnc1);, */ 
if ( sqlca.sqlcode == NOT_FOUND ) 
( 
printf("main.sc: ISshows fetch liefert NOT FOUND); 
goto closecl; 
| 
f flag = 1; 
if ( !sqlca.sqlcode ) 
| 
/* tt line 653 "pl.sc" */ /* select */ 
strcpy (table array[table index].table name, tab[number |); 
found z check. table name(); 
table cursor — table entry; 
strcpy(media name,att[number]); 
get media name(); 
printí("96s",media name); 
( 
IIsqInit(&sqlca); 
Iwritedb("retrieve(imageno=" ); 
Iiwritedb(media. name); 
IIwritedb(".i id,ISdescrc12"); 
IIwritedb(media name); 
Ilwritedb(".descrp)w"); 
IIwritedb(" here "); 
Iiwritedb(media name); 
IIwritedb(".f id2"); 
IIsetdom(1,32,0,IS fncl1); 
Iiwritedb(" "); 
IIsqRinit(&sqlca); 
if (IIerrtest() —— 0) { 
if (IInextget() != 0) { 
IlIretdom(1,30,4,&imageno); 
Ilretdom(1,32,0,ISdescrc1); 
) /* Unextget */ 
IIsqFlush(&sqlca); 
) /* Ilerrtest */ 
| 
/* # line 657 "pl.sc" */ /* host code */ 
if (!sqlca.sqlcode) 
| 
if ('(ISerrorcl z ISpixrect (ISfncl, ISdescrcl, &pr))) 
if (Y(ISerrorcl = IScolormap (ISfncl, ISdescrcl, &cm))) 
ISerrorcl = ISdescription (ISfncl, ISdescrcl, descr); 
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sqica.sqlcode = ISerrorcl; 


) 


else 
sqica.sqlcode = PROGRAM_ERR; 
| 
/* end of preprocessor output for fetch cl */ 
if (sqlca.sqlcode) 
goto closecl; 
id 2 imageno; 
/* tt line 270 "p2.sc" */  /* insert */ 
| 
IIsgInit((char *)0); 
IIwritedb("append to "); 
IIwritedb(temp media name); 
IIwritedb("(i idz"); 
IIsetdom(1,30,4,&;d); 
IIwritedb(" )"); 
IIsqSync(3,(char *)0); 
| 
/* # line 272 "p2.sc" */ /* host code */ 
) /* end for loop of cursor c1 */ 
closecl: 
/* exec sql close c1; */ 
/* translated by the preprocessor into: */ 
в6діса . 574 с odie = 
ISshows. close("image","i image",ISfncl,query phrase,ISerrmcc1); 
/* # line 693 "pl.sc" */ /* host code */ 
) /* end of successful open c1; correct query description */ 
) /* end of preprocessor declaration block */ 
if ( sqica.sqicode == QUERY_WORD_ERR ) 
| 
ргіп ("Тһе system cannot understand the word 
>>%s<<Nn" ,sqlca.sqlerrm.sqlerrmc); 
query_err = 1; 
| 
if ( sqlca.sqlcode —— QUERY STRUCTURE ERR ) 
| 
printf("The system cannot interpret the 
phrase\n>>\n%s<<\n" ,sqica.sqlerrm.sqlerrmc); 
query eir = 1; 
if ( query_err ) 
| 
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| 
| 
if ( !f flag ) 
printf("There are no media matching that query description.\n"); 
if ( sqlca.sqlcode ) 
printf("An error has occured while accessing the database\n\ 
sql error code: %d\n", sqica.sqlcode); 
clr_scr(); 
) /* end of retrieve_photo () */ 
ЕИ иекке киек вав / 
This procedure search through the media relation and get the 
file name that match with the result table and send to the 
present photo procedure 
Оев кк ож | 
display. photo (imageno,tupleno,temp table, image, id) 
int imageno; 
int tupleno; 
char temp. table[20]; 
int image 1d; 
| 
int desired_tupleno; 
char image_value[20]; 
char answer, repeat, yes_no_answer (); 
char query phrase[DESCRLEN- 1], 
in phrase[DESCRLEN- 1]; 
int і-0,|-0, Е, с, pid, query. err, query len, in len, f flag,.look more-0; 
struct pixrect *pr; 
colormap t cm; 
char ISfn1 [FILENAMELEN:- 1]; 
char descr[DESCRLEN- 1]; 
int Show. pid, wait pid; 
int ISerror; 
STR path file name; 
char ISdescr1 [DESCRLEN+1]; 
cm.type = RMT_NONE; 
cm.length = 0; 
cm.map[0] = NULL; 
cm.map[1] = NULL; 
cm.map[2] = NULL; 
desired_tupleno=tupleno; 
/* this is absolutely necessary!!!! Otherwise pr_load_colormap might 
not allocate storage for the colormap, if the garbage found in 
the cm structure seems to make sense. The result, of course, is 
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segmentation fault. This bug was very hard to find. */ 
/* exec sql select PIXRECT (i image), COLORMAP (i image), 
DESCRIPTION (1 image) 
into :pr, :cm, :descr 
from image 
where i id = :imageno; 
This Image-SQL statement is transformed into the following 
sequence of statements by the preprocessor: 
E 
c=]; 
inttostr(image_id, image_value); 
| 
if (IIcsrOpen((char *)0,"cursor output1","db",0,media name) !- 0) { 
IIwritedb("retrieve(ISfn12"); 
IIwritedb(media name), 
IIwritedb("."); 
IIwritedb("f id,ISdescr12"); 
IIwritedb(media name), 
IIwritedb(".descrp"); 
IIwritedb(")where "); 
Ilwritedb(media name), 
IIwritedb(".i id-"); 
IIwritedb(image value); 
IIcsrQuery ((char *)0); 


while (look morez-0) ( 
if (IIcsrFetch((char *)0, "cursor outputl1","db") != 0) ( 

IIcsrRet(1,32,0,IS fnl); 
IlcsrRet(1,32,0,ISdescr1); 
for (i=0;i<MAX_PATH+1;i++) | 

if (ISfn1[iJ==32) { 

Ғіе патеП|Е-0; 

) 

else { 

file_name[iJ=ISfn1 [iJ; 

) 
| 
printf("\nRecord no %d filename :%s:",j+1, ISfn1); 
if ((ung_file=fopen(file_name,"r"))==NULL) 

{ 

printf("\n%s", file_name); 
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printf(^nThe file cannot be opened !!\n"); 
putchar(\007"); 
| 
else | 
pr=pr_load(img_file, &cm); 
if (pr==NULL) { 
printf("\nThe file does not contain proper image"); 
ршсһаг( 007”); 
) 
else ( 
printf(^nShow image ...."); 
present. photo(j*-1 ,pr,&cm,ISdescr1 ); 
IIcsrClose((char *)0,"cursor output1","db"); 
) 
) 
fclose(img_file); 
) 
UcsrEFetch((char *)0); 
ј++; 
if G==c) | 
look_more = 1; 
}; 
) 
/*UcsrClose((char *)0,"cursor_output1","db");*/ 
) 
) 


БЕРЕТ cnet ne ae Nene eae как кок к кк жат ККЖ ЖЖЖ ЖЖЖ ЖЖЖжЖ/ 


This procedure search through the media relation and get the 
file name that match with the result table and send to the 
play sound procedure 
РЕКЕ ЕКИ ЖИЕККЕ ИК ae ese he we se Mea se se Me a se he Me eae he he eae Se Me ae ae Se He He 
display_sound (soundno,tupleno,temp_table, sound_id) 
int soundno; 
int tupleno; 
char temp. table[20]; 
int sound id; 
| 
char sound value[20]; 
int desired tupleno; 
char Answer,answer, repeat, yes no answer(); 
char query. phrase[DESCRLEN- 1], 
in phrase[DESCRLEN- 1]; 
int i=0,j=0, k, c, pid, query err, query. len, in len, f flag,look more-0; 
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int show_pid, wait_pid; 

int ISerror; 

STR path file name; 

char ISfn1[FILENAMELEN:- 1 ]; 
char ISdescr1( DESCRLEN- 1]; 
desired tupleno-tupleno; 

с=1: 


inttostr(sound_id, sound_value); 
if (IIcsrOpen((char *)0,"cursor. output1","db4",0,media name) !- 0) ( 
IIwritedb("retrieve(ISfn12"); 
IIwritedb(media name); 
IIwritedb("."); 
IIwritedb("f id|ISdescr12z"); 
lIIwritedb(media name); 
IIwritedb(".descrp"); 
IIwritedb(")where "); 
IIwritedb(media name); 
IIwritedb(".s id-"), 
IIwritedb(sound value); 
IIcsrQuery ((char *)0); 
) /* Ucsropen */ 
while (look_more==0) { 
if (IlcsrFetch((char *)0, "cursor output1","db4") != 0) { 
IIcsrRet(1,32,0,ISfn1); 
IlIcsrRet(1,32,0,ISdescr1); 
for (i=0;i<MAX_PATH-+1;i++) { 
if (ISfnl [iJ==32) { 
file_name[iJ=0; 
) 
else ( 
Ше_пате[1]=Ї$%п1[1]; 
) 
| 
printf("\nRecord no %d ",j+1); 
printf(^nPlay the sound ? (y/n) :: '); 
if (yes_no_answer()==’y’){ 
play. sound(file name); 
IIcsrClose((char *)0,"cursor output1","db4"); 
| 
IIcsrEFetch((char *)0); 
yet 
if (j——c) | 
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Jook more = 1; 
) 
| /* ПС5КЕЕССН */ 
| /* end while */ 


| /* end of display sound () */ 

ИИО О О О see kese je jede 34e afe sfe ake ake ahe afe she she 3ko ale ake ake / 
This procedure get the query description for the media attribute 

from the user phrase by phrase 


РЕТТЕ ККЖ Ж ЖЕЖ ЕЖ ese e se oie se uote esie e sese sie ie tee le she ЖЖЖ ЖЖ ЖЖЖ / 


char process, icon() 
| 
char answer, repeat, yes no answer (); 
char query. phrase[DESCRLEN- 1], 
in phrase[DESCRLEN- 1]; 
int 1, query, err, query. len, in len, f flag; 
char descr[DESCRLEN- 1]; 
int show pid, wait pid; 


int imageno; 

icond = 1; 

do 

| 
query_err = 0; 
query len - 0; 


query. phrase[0] 2 ^0*; 
printf(^nPlease enter your query descriptione 
* noun phrases separate by commas and end with an exclamation mark\n\ 
* sentence end with a period NN 
(end whole description with an empty line):\n"); 
do /* until query_phrase input */ 
1 = 0; 
while ( (in_phrase[i++] = getchar()) = ^п’ && 1 < 127 ); 
if ( in phrase[i-1] !2 ^n' ) 
| 
іп рһгаѕе[1-1] = ^п”; 
printf ("The phrase is too long, it will be shortened"); 
while ( getchar () !2 ^n' ); 
) /* End if */ 
in_phrase[i] = 0’; 
if ( (in lenz i)» 1) 
| 
if ( query_len + in_len < DESCRLEN ) 
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| 
strcat(query. phrase,in phrase); 
query. len — query len -* in len; 
) /* End if */ 
else 
| 
printf("The last phrase extended beyond the maximum \ 
description length,\nit will be ignored\n"); 
break; 
) /* End else */ 
) /* End if */ 
if ( !query len ) 
printf(^nAn empty string is not allowed as a query description NN 
Please type at least a single word:\n"); 
) /* End do */ 
while ( ( in len > 1 ) l| !query. len ); /* end query. phrase input */ 
printf("The query description now is:\n>>%s<<\n\n" ,query_phrase); 
) while (query. err); 
strcpy(con[numcon],query. phrase); 
if (contype[numcon]— 1) | 
process icon2 (query phrase,numconj; 
) 
if (contype[numcon]==2) { 
process_icon3 (query_phrase,numcon); 


| 
| 


Ееее е bee obe sfe e e he be be oe oe le de АЯ ХЕ ЯК А ОН ЖКК ЖЖ ЖЖЖ 


This procedure handles if there are more than one conditions in the query. 
кк Ж ж ЖКЖ ЖК ЖКЖ КК ITAA IISA SSSA SSAA SOAS I OAS 
nested gcondition(choice,temp tablel,temp table2,temp table) 
char choice; 
char temp. table1[20]; 
char temp table2[20]; 
char temp table[20]; 
{ 
int group_number=0; 
int nested_counter=0; 
int k,l; 
int endgroup,i,more found=FALSE; 
char ans,ans2; 
endgroup = 0; 
more = 0; 
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numcon=0; 
numgroup=0; 


choice-utility menu(choice,temp tablel,temp table2,temp table); 


if (choice==’0’){ 
cond=1; 
gcond=0; 
) 
while (more != 1) { 
while (endgroup != 1) { 
for (i=0;i < att_index;i++) 
| 
if (choice==’0’){ 
if (m» 1)| 
printf(^nEnter table name "); 
gets(tab[numcon]); 
strcpy (table array[table index].table name, tab[numcon]); 
) 
) 
if (m==1) { 
strcpy (tab[numcon], stab[0].t name); 
) 
if (choice==’0’){ 
cond=1; 
gcond=0; 
printf(^nEnter attribute "); 
gets(att[numcon]); 
getatttype(tab[numcon], att[numcon],atttype[numcon]); 
if (strcemp(atttype[numcon],"image")==0) 


contype[numcon]-1; 
process icon(); 
| 
else if (strcmp(atttype[numcon],"sound")==0) 
| 
contype[numcon]-2; 
process icon(); 
| 
else { 
printf("Enter the condition ^а"); 
gets(con[numcon]); 
contype[numcon]=0; 
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| 
}/*end if choice==0 */ 


nested_counter=nested_counter+1; 
if ((nested_counter%2)==1)({ 
if (choice==’0’){ 
cond=1; 
gcond=0; 
ql_retrieve(temp_table8); 
ql printdata(temp table8);*/ 
cond=0; 
numcon=0; 
numgroup=0; 
init buffer(tab,10); 
init buffer(att,10); 
for (k=0; k<10; k++){ 
for (120; 1«100; 1++){ 
con[k][1]- 0"; 
) 
| 
) 
if (choice==’1’){ 
templ exists temp2(temp tablel, temp table2, temp. table8); 
ql printdata(temp table8); 
init buffer(join for nested,99); 
) 
if (choice==’2’){ 
templ not exists temp2(temp tablel, temp table2, temp table8); 
ql_printdata(temp_table8); 
init_buffer(join_for_nested,99); 
} 
if (choice==’3’){ 
templ in temp2(temp tablel, temp table2, temp. table8); 
ql printdata(temp table8); 
init buffer(condition for nested,100); 
init buffer(attribute for nested,20); 
) 
if (choice==’4’){ 
templ not in temp2(temp tablel, temp. table2, temp table8); 
ql printdata(temp table8); 
init buffer(condition for nested,100); 
init buffer(attribute for nested,20); 
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| 


)/* end if nested_counter%2==1 */ 


if ((nested_counter%2)==0){ 
if (choice==’0’){ 
cond=1; 
gcond=0; 
ql retrieve(temp table9); 
ql printdata(temp table9);*/ 
сопа-0; 
numcon=0; 
numgroup=0; 
init_buffer(tab,10); 
init_buffer(att,10); 
for (k=0; k<10; k++){ 
for (1=0; 1<100; 1++){ 
con[k][1]- '0"; 
| 
| 
| 
if (choice==’1’){ 
templ, exists temp2(temp tablel, temp table2, temp  table9); 
ql printdata(temp. table9); 
init, buffer(join for nested,99); 
| 
if (choice==’2’){ 
temp1_not_exists_temp2(temp_tablel, temp_table2, temp_table9); 
ql_printdata(temp_table9); 
init buffer(join for nested,99); 
| 
if (choice==’3’){ 
templ in temp2(temp tablel, temp table2, temp table9); 
ql printdata(temp table9); 
init buffer(condition for nested,100), 
init buffer(attribute for nested,20); 
| 
if (choice==’4’){ 
templ not in temp2(temp tablel, temp table2, temp table9); 
ql printdata(temp. table9); 
init buffer(condition for nested,100); 
init buffer(attribute for nested,20); 


) 
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)/* end if nested_counter%2==0 */ 


if (nested counter--2)| 


ie print£(^nBelow is the result of the first %d_ conditions in group %d :", 

nested counter, group number-1);*/ 

is printf(‘\nBefore intersection...nested_counter->%d" ;nested_counter);*/ 
intersect_tables(temp_table8 ,temp_table9,temp_table10); 

fi ql printdata(temp table10);*/ 


drop table(temp table8); 
drop table(temp table9); 


if (nested counter»2)( 
if ((nested_counter%2)==1 ){ 


ih printf(^nBelow is the result of the first %d conditions in group 96d :", 

nested counter, group number-1);*/ 

/* printf(^nBefore intersection...nested_counter->%d" nested_counter);*/ 
intersect_tables(temp_table10,temp_table8,temp_table11); 

Jm ql printdata(temp table11);*/ 


drop table(temp table8); 
drop. table(temp table10); 
) 


if ((nested_counter%2)==0) ( 


/* printf(‘\nBelow is the result of the first %d conditions in group %d :", 

nested_counter, group_number+1);*/ 

/5 printf(‘\nBefore intersection...nested_counter->%d" ,nested_counter);*/ 
intersect_tables(temp_table11,temp_table9,temp_table10); 

а ql printdata(temp table10);*/ 


drop table(temp table11); 
drop table(temp  table9); 


) 


)/* end if nested_counter>2 */ 
/*  )*/ /* end if ’1’<=choice=<’4’ ----- deneme-----*/ 


printf(^nEnd group ?"); 

ans=yes_no_answer(); 

if ((ans==121)Il(ans==89)) { 
group_number=group_number+1; 
if (group number-z1)( 
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if (nested_counter==1) { 
union_tables_for_nested(temp_table8, group] ); 
printf(‘\nBelow is the result of group %d :",group_number); 
ql printdata(group1);*/ 
drop table(temp. table8); 

| 

if (nested_counter>1 ) { 
if ((nested_counter%2)==0){ 
union tables for nested(temp tablel0O, groupl); 
printf(‘\nBelow is the result of group 96d :",group number); 
ql printdata(groupl);*/ 
drop table(temp table10); 
| 
if ((nested_counter%2)==1 ){ 
union tables for nested(temp tablell, groupl); 
printf£(^nBelow is the result of group 96d :",group number); 
ql printdata(groupl);*/ 
drop_table(temp_table1 1); 
| 

)/* end if nested counter » 1 */ 

)/*end if group number--1 */ 


if (group number--2)( 

if (nested counter--1)( 
union tables for nested(temp table8, group2); 
printf(^nBelow is the result of group 96d :",group number); 
ql printdata(group2);*/ 
drop table(temp. table8); 

) 

if (nested_counter>1){ 
if ((nested_counter%2)==0){ 
union_tables_for_nested(temp_table10, group2); 
printf(^nBelow is the result of group %d :",group number); 
ql. printdata(group2);*/ 
drop table(temp. table10); 
) 
if ((nested_counter%2)==1){ 
union tables for nested(temp tablell, group2); 
printf(“\nBelow is the result of group ?od :",group number); 
ql printdata(group2);*/ 
drop table(temp tablell); 
) 


)/* end if nested_counter>1 */ 
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Ж 


Ж 


/* 


ys 


/* 


union tables(groupl, group2); 
printf( ^aBelow is the result of the first Фа groups ",group number); 
ql printdata(group2);*/ 
drop table(groupl); 
J/*end if group number--2 */ 


if (group number»22)| 
if (nested counter--1)( 
union tables for nested(temp table8, groupl); 
printf(^nBelow is the result of group 96d :",group number); 
ql printdata(groupl);*/ 
drop table(temp table8); 
| 
if (nested counter»1)[( 
if ((nested_counter%2)==0){ 
union tables for nested(temp table10, groupl); 
printf(^nBelow is the result of group 96d :",group number); 
ql printdata(groupl);*/ 
drop table(temp, table10); 
) 
if ((nested_counter%2)==1){ 
union tables for nested(temp tablell, groupl); 
printf("\nBelow is the result of group %d :",group number); 
ql_printdata(group1);*/ 
drop_table(temp_table11); 
| 
)/* end if nested counter»1 */ 
union tables(groupl,group2); 
printf(^nBelow is the result of the first 96d groups ",group number); 
ql printdata(group2);*/ 
drop table(groupl); 
)/* end if group number » 2 */ 
nested counter-0; 
endgroup=1; 
/* printf("\nGroup Zod" ,numgroup); 
printf(^naCondition %d",numcon);*/ 
12600; 
)/* end if ans= YES to end group ? */ 
if ((ans==110)Il(ans==78)) { 
choice=utility_menu(choice,temp_tablel ,temp_table2,temp_table); 
| 
) /* End for */ 
) /* END WHILE */ 
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printf(^anEnd condition ?"); 
ans=yes_no_answer(); 
if ((ans==121)Il(ans==89)) 
| 
if (group number--1)( 
union tables for nested(groupl, temp table); 
drop. table(groupl1); 
printf(anBelow is the final result :"); 
ql printdata(temp table); 
| 
if (group number»1)( 
union, tables for nested(group2, temp. table); 
drop table(group2); 
printf(^nBelow is the final result :"); 
ql printdata(temp table); 
) 
/* if (choice==’0’) 
group_count[numgroup].endgroup = numcon-1;*/ 
endgroup=1; 
more = 1; 
i=Q; 
)/* if ans=YES to end condition? */ 
else { 
more-0; 
endgroup=0; 
i=0; 
nested_counter=0; 
choice=utility_menu(choice,temp_table1,temp_table2,temp_table); 
/* group count[numgroup].endgroup = numcon-1; 
numgroup-numgroup- 1; 
group count[numgroup].begingroup-numcon;*/ 


)/*end else*/ 


) /* End more */ 
group number-0; 
) 


E cae te Ne teeta Ac erence Me ee e A We eRe ACR Ae Ae AC He ee Ae Ae ee Ne Ae Ae ee He ee Mee Hee He ee He ee ee He 


This function handles if there is only one condition in the query. 
ELLE EE еее ЕЕЕ ЕЖ she He He eee Ae He she e ok oet Hee ee He ee 3k oe ef 


nested_processcondition(choice,temp_table1 ,temp_table2,temp_table) 
char choice; 
char temp table1[20]; 
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char temp. table2[20]; 
char temp table[20]; 


| 


char ans2,a; 
int i,j; 
gcond=0; 
printf(^nGroup condition ? (y/n) "); 
ans2-yes no answet(); 
if ((ans222121)ll(ans22-89)) 
nested gcondition(choice,temp tablel,temp table2,temp table); 
) 
else 


| 


gcond=0; 
choice-utility menu(choice,temp tablel,temp table2,temp table); 
if (choice == ’0’){ 
cond-1; 
if (m»1)| 
printf(^nEnter table name "); 
gets(tab[0]); 
) 
if (m==1) { 
strcpy (tab[0], stab[0].t_name); 
| 
printf(^nEnter attribute name "); 
gets(att[0]); 
printf(^m/6s 96s 96s", tab[0], att[0], atttype[0]); 
getatttype(tab[0],att[0],atttype[0]); 
if (strcmp(atttype[0],"image")——0) 
( 
сопгуре[0]=1; 
process_icon(); 
} 
else if (strcmp(atttype[0],"sound”)==0) 
( 
contype[0]22; 
process icon(); 
| 
else { 
printf("Enter the condition \n"); 
gets(con[0]); 
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| 


сопгуре[0]=0; 
) 
) 


else 
cond=0; 


if (choice==’0’) 

ql_retrieve(temp_table); 
if (choice==’1’) 

templ exists temp2(temp tablel, temp_table2, temp table); 
if (choice==’2’) 

templ not exists temp2(temp tablel, temp table2, temp table); 
if (choice==’3’) 

templ in temp2(temp tablel, temp table2, temp table); 
if (choice==’4’) 

tempi not in temp2(temp tablel, temp table2, temp table); 
ql printdata(temp table); 
| 


РА ta So кк Ж He He He te Me Ae de He he Me He He He Mee Ae He He He He Ae He He es ЖЖЖ / 


This procedure print the attribute name of the table assign to 
Уорик авнаа вни навивки у 
void p_att(tab_name) 

STR_name tab_name; 


| 


int ij; 
for (i=0;i<= table_count;i++) { 
if (strcmp(table array[i].table name,tab name)--0) ( 
X тай 
y = table array[i].att. entry; 
printf(“\nTable Name: %s\n" ,table_array[i].table_name); /* print table name */ 
printf(^n**Attribute****Data Type**"); 
while (y != -1) { 
printf(^n92013s %s" ,att_array[y].att_name,att_array[y].data_type); 
y = att_array[y].next_index; 
| /* End while y!=-1 */ 
if (y==-1) { 
printf("\n"); 
i=500; 
} /* Exit loop */ 
) /* End if */ 
) /* End for */ 
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| 


ок к ка жж ж ж к ЖЖК Ж Жж / 


Generate the result table for retrieval process 
This procedure process the query and condition 
By using the select_array and condition_array 
also group_array 
Ж к ж жж а к ккал жж а БОД ШЫ 
ql retrieve(temp table) 
char temp. table[20]; 
| 
int d,e,r; 
int i,j,k,l; 
char grnum,medianum,operator[4]; 
i=0; /* set up index to 0 */ 
/* Below is the embeded C code for the SQL C for INGRES */ 
/* This is equivalent to the SQL query */ 
/* exec sql select (varl, var2, ...) 
from (tablel, table2,...) 
where (condition! and/or condition2 and/or ...); 
*/ 
к=0; 
1=0; 
j=0; 
1=0; 
г-0; 


IIsgInit((char *)0); 
IIwritedb("retrieve into "); 
IIwritedb(temp table); 
IIwritedb("("); 

for (i=0;i<n-1;i++) | 
Iwnitedb(satt[i].t_name); 
IIwritedb("."); 
IIwritedb(satt(i]J.a name); 
Ilwritedb(","); 

) /* end for */ 
IIwritedb(satt[i].t name); 
IIwritedb("."); 
Iwnitedb(satt[i].a_name); 
Iwritedb(")"); 
if (cond==0) { 

if (m>1) ( 

IIwritedb("where("); 
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IIwritedb(join condition); 
Ilwritedb(")"); 
} 
| 
ІҒ (сопа--1) | 
IIwritedb( where("); 
if (m>1) { 
IIwritedb("("); 
IIwritedb(join condition); 
Iiwritedb(")"); 
IIwritedb(" and "); 
} 
if (gcond==0) { 
if (contype[0J==0) ( 
IIwrtedb(tab[0]); 
IIwritedb("."); 
IIwritedb(att[0]); 
IIwritedb(con[0]); 
) /* end if */ 
if (contype[0]—1) ( 
IIwritedb(tab[0]); 
IIwritedb("."); 
IIwritedb(att[0]); 
IIwritedb("2"); 
temp. media пате[0]='р”; 
medianum=0+48; 
temp_media_name[1]=medianum; 
temp_media_name[2]=0; 
Iwritedb(temp_media_name); 
IIwritedb("."); 
IIwritedb("i id"), 
) 
if (contype[0]==2) { 
Iwritedb(tab[0]); 
IIwritedb("."); 
IIwritedb(att[0]); 
IIlwritedb("="); 
temp_media_name[0]=’p’; 
medianum=0+48; 
temp_media_name[1]=medianum; 
temp_media_name[2]=0; 
IIwritedb(temp media name); 
Ilwritedb("."); 
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IIwritedb("s id"); 
| 
} /* епа її по ргоир */ 
IIwritedb(")); 
| /* end if con-1 */ 
) 


РЕКЕ ЕЕ be se de е АЯ Кк як жаа кок жек ка кин ЖЫНЫН 


This function takes two temp tables and unions them and returns 

the result to the calling function 

se sk se ke se he je fe e he ЖЖ ЖЖЖ EE RRR A AA HEEL КК ат а 
union tables(temp tablel, temp table) 

char temp. table1[20]; 

char temp table[20]; 


| 


int c=0,j=0,k=0,1=0,temp, count; 
/*char*/ STR_name char_value[21]; 
char file name[20],a; 
int integer value,media value,found,medial value; 
float real value; 
int 1=0,select=0; 
int g=0; 
/*printf(^nNow we are in union tables");*/ 
/* $t line 3169 "db.sc" */ /* select */ 
| 
Isqinit((char *)0); 
Iwritedb("retrieve(c=(count("); 
IIwritedb(temp_table1); 
IIwritedb("."); 
IIwritedb(satt[0].a. name); 
IIwritedb(")))); 
IsqRinit((char *)0); 
if (Hlerrtest() == 0) | 
if (IInextget() != 0) { 
IIretdom(1 ,30,4,&c); 
) /* IInextget */ 
IisqFlush((char *)0); 
) /* Ilerrtest */ 
| 
120; 
/*printf( ^n There are %d records in temp table 96s",c, temp table1);*/ 


/* € line 3171 "db.sc" */ /* host code */ 
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if (IcsrOpen((char *)0,"cursor_output","db1",0,temp_tablel) != 0) ( 
Iwritedb("retrieve("); 
for (select=0;select<n-1;select++) ( 
IIwritedb(satt|select].a name); 
IIwritedb(" 2"); 
IIwritedb(temp table1); 
IIwritedb("."); 
IIwritedb(satt[select].a name); 
IIwritedb(" ,"); 

| 

IIwritedb(satt[select].a name); 
Iwritedb("="); 
IIwritedb(temp table1); 
IIwritedb("."); 
IIwritedb(satt[select].a name); 
IIwritedb(")"); 
IIcsrQuery((char *)0); 

) /* IIcsrOpen */ 


/* st line 3169 "db.sc" */ /* select */ 
| 
IIsgInit((char *)0); 
IIwritedb("retrieve(g2(count("); 
IIwritedb(temp table); 
IIwritedb("."); 
IIwritedb(satt(0].a name); 
IIwritedb(")))"); 
IIsqRinit((char *)0); 
if (Ilerrtest() == Q) | 
if (Inextget() != 0) { 
Ilretdom(1,30,4,&g); 
| 
IIsqFlush((char *)0); 
) 
) 


/*printf(\nThere are Yd records in temp table 9os",g, temp table);*/ 


/* # line 3171 "db.sc" */ /* host code */ 
if (IlcsrOpen((char *)0,"cursor. output","db2",O0,temp table) != 0) { 
IIwritedb("retrieve("); 
for (select=0;select<n-1;select++) { 
IIwritedb(satt[select].a name); 


145 


IIwritedb("z"); 
IIwritedb(temp table); 
IIwritedb("."); 
IIwritedb(satt[select].a name); 
IIwritedb(","); 
| 

IIwritedb(satt[select].a name); 
IIwritedb( 2"); 
IIwritedb(temp table); 
IIwritedb("."); 
IIwritedb(satt[select].a name); 
IIwritedb(")"); 
IIcsrQuery((char *)0); 

| 


/*printf(Nn");*/ 

look more-z0; 

120; 

if (c==0) { 
look_more=1; 


| 


/* Fetch the cursor to the result relation which is the intermediate table 
hold the result from the query, then print out the tuple one at a time 
until no more record to print to the user */ 


/* # line 7 "insert.sc" */ /* insert */ 
( 
while (look more — 0) | 
if (IIcsrFetch((char *)0,"cursor output","db1") != 0) ( 
IIsginit((char *)0); 
IIwritedb(" append to "); 
IIwritedb(temp table); 
IIwritedb("( ^); 
/*  printf(nrecord id 96d X",L-1);*/ 
for (i=0;i<n-1;i++) { 
IIwritedb(satt[i].a name); 
IIwritedb("—"); 
if (stremp(satt[i].data_type,"c20")==0) { 
IcsrRet(1,32,0, char. value); 
/* printf("%s : %s",satt[i].a_name,char_value);*/ 
IIsetdom(1,32,0, char. value); 
| 
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/* 


/* 


/* 


ШЕ 


ШЕ 


/* 


* 


= 


if (stremp(satt[i].data_type,integer")==0) { 
IIcsrRet(1,30,4,&integer value); 
printf("%s : Фа ",satt[1].a name,integer value);*/ 
IIsetdom(1,30,4,&integer value); 
| 
if (stremp(satt[i].data гуре, "Поа(")==0) { 
IIcsrRet(1,31,4,&real value); 
printf("%s : %8.2f ",satt[i].a_name,real_value);*/ 
IIsetdom(1,31,4,&real value); 
| 
if (stremp(satt[i].data_type,"image")==0) { 
IIcsrRet(1,30,4,&media value); 
printf("%s id is %d_ ",satt[i].a_name,media_value);*/ 
Isetdom(1,30,4,&media_value); 
| 
if (stremp(satt[1].data type," sound" )--0) | 
IIcsrRet(1,30,4,&inedial, value); 
printf("%s %d" ,satt[i].a_name,medial_value);*/ 
Isetdom(1,30,4,&medial_value); 
) 
Hwritedb(","); 
| 
IIwritedb(satt[1].a name); 
I writedb("z"); 
if (stremp(satt[i].data type, "c20")—-0) ( 
IIcsrRet(1,32,0, char. value); 
printf("%s : %s",satt[i].a_name,char_value);*/ 
IIsetdom(1,32,0, char. value); 
| 
if (strcmp(satt[i].data type," integer")—-0) | 
IIcsrRet(1,30,4,&integer value); 
printf("%s : %d ",satt[i].a_name,integer_value);*/ 
IIsetdom(1,30,4,&integer value); 
| 
if (stremp(satt[i].data type," float")—-0) ( 
IIcsrRet(1,31,4,&real value); 
printf("%s : %8.2f ",satt[i].a_name,real_value);*/ 
Hsetdom(1,31,4,&real_ value); 
) 
if (stremp(satt[1].data_type,"image")==0) { 
HcsrRet(1,30,4,&media_value); 
printf("%s id is %d_ ",satt[i].a_name,media_value);*/ 
IIsetdom(1,30,4,&media value); 
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if (stremp(satt[i].data_type,"sound")==0) ( 
IlcsrRet(1,30,4,&medial value); 
f printf("%s %d" satt[i].a_name,medial_value);*/ 
IIsetdom(1,30,4, &medial. value); 
) 


/*  printf(^n^)y;*/ 
IlcsrEFetch((char *)0); /* fetch the next record to the cursor */ 
1++: /* increment | as the counter */ 
if (==c) { /* check if no more data to print */ 
look more -1; /* exit of the loop */ 
) 
IIwritedb(" )"); 
IIsqSync(3,(char *)0); 
) /* IlcsrFetch */ 
) /* end while */ 
| 
IicsrClose((char *)0,"cursor_output","db1"); /* close the cursor */ 
IIcsrClose((char *)0,"cursor_output","db2"); /* close the cursor */ 
retumi(temp table); 


f sehe hehe sehe ke oe oe oe se he she ahe hehe ok obe e e oe he he she He HAA MA TEM kel obe ККЖ к кк ааа 


This function takes two temp tables and unions them, puts the result in 

temp tablel and returns the result to the calling function 

ЖЖЖ ЖКЖ ККЖ ЖЖК ЖЖЖ ЖЖ ЖЖЖ ЖОРЫҚ ЖОК Жж кк Т 
union tables for nested(temp tablel, temp table) 

char temp table1[20]; 

char temp table[20]; 

| 


int c=0,j=0,k=0,1=0,temp, count; 
/*char*/ STR, name char. value[21]; 
char file name[20],a; 
int integer value,media value,found,medial value; 
float real value; 
int i=0,select=0; 
int g=0; 
/*printf(“\nNow we are in union_tables_for_nested");*/ 
/* € line 3169 "db.sc" */ /* select */ 
| 
IIsgInit((char *)0); 
Iwritedb("retrieve(c=(count("); 
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IIwritedb(temp. tablel); 
IIwritedb("."); 
IIwritedb(satt[0].a name); 
Пмтиеаһ(")))"); 
IIsqRinit((char *)0); 
if (IIlerrtest() == 0) { 
if (IInextget() != 0) ( 
IIretdom(1,30,4,&c); 
) /* IInextget */ 
IIsqFlush((char *)0); 
) /* Hlerrtest */ 
| 
120; 
/*printf(‘\nThere are 9od records in temp. table ?6s",c, temp. tablel);*/ 


/* # line 3171 "db.sc" */ /* host code */ 

if (IicsrOpen((char *)0,"cursor_output","db1",0,temp_table1) != 0) ( 
IIwritedb("retrieve("); 
for (select=0;select<n-1;select++) { 
Ilwritedb(satt[select].a name); 
IIwritedb("-"); 
IIwritedb(temp. table1); 
IIwritedb("."); 
IIwritedb(satt[select].a name); 
IIwritedb(","); 

) 

IIwritedb(satt[select].a name); 
IIwritedb("z"); 
IIwritedb(temp tablel); 
IIwritedb("."); 
IIwritedb(satt[select].a name); 
IIwritedb(")"); 
IicsrQuery((char *)0); 

} /* ПсзгОреп */ 


/* & & & & & & & & & & & & & & & & & & & & & 8 & 8 */ 
| 
IIsgInit((char *)0); 
IIwritedb("create "); 
IIwritedb(temp. table); 
IIwritedb("("); 
for (1=0;1<n-1;1++){ 
IIwritedb(satt[1].a name); 
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IIwritedb("2"); 
if ((strcemp(satt[1].data type, "image") — 0) II 
(strcmp(satt[i].data_type, “sound") == 0) II 
(strcmp(satt[i].data type, "integer") == 0)) 
IIwritedb("i4,"); 
else 
if (strcmp(satt[i].data type, "float") == 0) 
IIwritedb( "f4,"); 
else 
( /* char data - a 
IIwritedb(satt[i].data type); 
IIwritedb(","); 


| 
) /* End of for loop i */ 
Ilwritedb(satt[i].a name); 
Iwritedb("="); 
if ((strcmp(satt[i].data_type, "image") == 0) Il 
(strcemp(satt[i].data type, "sound") — 0) II 
(strcmp(satt[i].data type, "integer") == 0)) 
IIwritedb("i4"); 
else 
if (stremp(satt[i].data, type, "float") —— 0) 
liwritedb("f4"); 
else 
( /* char data | */ 
IIwritedb(satt[1].data type); 
) 
Iwritedb(")"); 
IlsqSync(O,(char *)0); 
) 
/* & & & & & & & & & & & & & & & NAAA] 


/* st line 3169 "db.sc" */ /* select */ 
( 

IIsqInit((char *)0); 
IIwritedb("retrieve(g2(count("); 
IIwritedb(temp table); 
IIwritedb("."); 
IIwritedb(satt[0].a name); 
IIwritedb()))"); 
LisqRinit((char *)0); 
if (Ilerrtest() == 0) { 

if (IInextget() !2 0) | 
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Ilretdom(1,30,4,& g); 
) 
IIsqFlush((char *)0); 
| 
) 


/* # line 3171 "db.sc" */ /* host code */ 

if (IlcsrOpen((char *)0,"cursor output","db2",0O,temp table) !- 0) ( 
IIwritedb( retrieve("); 
for (select=0;select<n-1;select++) ( 
IIwritedb(satt[select].a name); 
IIwritedb(" 2"); 
IIwritedb(temp table); 
IIwritedb("."); 
IIwritedb(satt[select].a name); 
IIwritedb(","); 

| 

IIwritedb(satt(select].à name); 
IIwritedb(" 2"); 
IIwritedb(temp table); 
IIwritedb("."); 
Ilwritedb(satt[select].a name); 
Ilwritedb(")"); 
IIcsrQuery((char *)0); 

) 


/*printf(^n");*/ 

look morez0; 

120; 

if (c==0) { 
look_more=1; 


/* Fetch the cursor to the result relation which is the intermediate table 
hold the result from the query, then print out the tuple one at a time 
until no more record to print to the user */ 


/* 3t line 7 "insert.sc" */ /* insert */ 
í 
while (look_more == 0) { 
if (IIcsrFetch((char *)0,"cursor output","db1") != 0) { 
IIsgInit((char *)0); 
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IIwritedb("append to "); 
IIwritedb(temp table); 
Ilwritedb(" (^); 
for (i=0;i<n-1;i++) { 
IIwritedb(satt[1].a name); 
IIwritedb(" -"); 
if (stremp(satt[1].data type," c20")——0) ( 
IIcsrRet(1,32,0, char. value); 
IIsetdom(1,32,0, char. value); 
) 
if (stremp(satt[i].data_type, integer" )==0) | 
IlcsrRet(1,30,4,&integer value); 
IIsetdom(1,30,4,&integer value); 
| 
if (stremp(satt[i].data_type, float")==0) { 
IicsrRet(1,31,4,&real_ value); 
IIlsetdom(1,31,4,&real value); 
) 
if (stremp(satt[i].data type," image")——0) | 
IIcsrRet(1,30,4,&media. value); 
IIsetdom(1,30,4,&media value); 
) 
if (strcemp(satt[i].data type," sound")--0) { 
IIcsrRet(1,30,4,& medial, value); 
Ilsetdom(1,30,4,& medial value); 
) 
IIwritedb(","); 
| 
IIwritedb(satt[i].a name); 
Ilwritedb("="); 
if (strcmp(satt[1].data type,"c20")——0) ( 
IIcsrRet(1,32,0, char. value); 
IIsetdom(1,32,0, char. value); 
) 
if (strcmp(satt[i].data_type,”integer")==0) { 
IIcsrRet(1,30,4,&integer value); 
IIsetdom(1,30,4,&integer value); 
| 
if (stremp(satt[1].data type,"float")——0) { 
IIcsrRet(1,31,4,& real value); 
IIsetdom(1,31,4,& real value), 
| 
if (strcmp(satt[i].data type,"image")——0) ( 
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IIcsrRet(1,30,4,& media value); 
IIsetdom(1,30,4,&media value); 

) 

if (strcmp(satt[i].data_type,"sound")==0) ( 
IcsrRet(1,30,4,&medial_value); 
Ilisetdom(1,30,4,& medial value); 


) 


Ж рпіһи(“а”;%/ 
IIcsrEFetch((char *)0); /* fetch the next record to the cursor */ 
1++; /* increment | as the counter */ 
if (I==c) { /* check if no more data to print */ 
look_more =1; /* exit of the loop */ 
| 
IIwritedb(" )"); 
IlsqSync(3,(char *)0); 
) /* HicsrFetch */ 
) /* end while */ 
) 
IIcsrClose((char *)0,"cursor, output","db1"); /* close the cursor */ 
IIcsrClose((char *)O,"cursor output","db2"); /* close the cursor */ 
return(temp table); 


КОКО ok oe ЖЖК ЖЖЖ ke e ИК КК Ж 


This function takes two temp tables and unions them, puts the result in temp table 
and returns the result to the calling function 

EL UU eO e oec lee e esie oe ak o de ol oe ak ole se ok ole oe ke sje ЖЖК Ж жж Ж / 
union tables for demo(temp. tablel, temp table2, temp table) 

char temp tablel1[20]; 

char temp table2[20]; 

char temp table[20]; 

| 


int c=0,j=0,k=0,1=0,temp, count; 

int o=0,p=0; 

/*char*/ STR_name char_value[21]; 

char file_name[20],a; 

int integer_value,media_value,found,medial_value; 

float real_ value; 

int i=0,select=0; 
int g=0; 
/*printf(^nNow we are in union tables for nested");*/ 
/* € line 3169 "db.sc" */ /* select */ 
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IIsgInit((char *)0); 
IIwritedb("retrieve(c-(count("); 
IIwritedb(temp tablel); 
IIwritedb("."); 
IIwritedb(satt[0].a name); 
IIwritedb(")))"); 
IIsqRinit((char *)0); 
if (Ilerrtest() == 0) { 
if (IInextget() != 0) { 
IIretdom(1,30,4,&c); 
) /* IInextget */ 
IIsqFlush((char *)0); 
) /* Ilerrtest */ 
| 
120; 
/*printf(^n There are 96d records in temp table 96s",c, temp tablel);*/ 


/* # line 3171 "db.sc" */ /* host code */ 

if (IIcsrOpen((char *)0,"cursor_output" ,"db1",0,temp_tablel) != 0) { 
IIwritedb("retrieve("); 
for (select=0;select<n-1;select++) { 
IIwritedb(satt[select].a name); 
IIwritedb(" 2"); 
IIwritedb(temp table1); 
IIwritedb("."); 
IIwritedb(satt[select].a name); 
IIwritedb(" ,"); 

| 

IIwritedb(satt[select].a name); 
Ilwritedb(" 2"); 
IIwritedb(temp table1); 
IIwritedb("."); 
IIwritedb(satt[select].a name); 
IIwritedb(")"); 
IicsrQuery((char *)0); 

) /* ПсѕгОреп */ 

/* € line 3169 "db.sc" */ /* select */ 
| 

IIsgInit((char *)0); 

IIwritedb("retrieve(o2(count("); 

IIwritedb(temp table2); 

IIwritedb("."); 
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IIwritedb(satt[0].a name); 
IIwritedb(")))"); 
IIsqRinit((char *)0); 
if (Ilerrtest() 2-2 0) { 
if (IInextget() != 0) | 
Ilretdom(1,30,4,&0); 
) /* Iinextget */ 
IIsqFlush((char *)0); 
) /* Ilerrtest */ 
) 
1=0; 
/*printf(‘\nThere are %d records in temp_table %s",o, temp_table1!);*/ 


/* # line 3171 "db.sc" */ /* host code */ 

if (IlcsrOpen((char *)0,"cursor_output","db3",0,temp_table2) != 0) ( 
IIwritedb(" retrieve("); 
for (select=0;select<n-1;select++) { 
IIwritedb(satt[select].a name); 
Iwritedb("="); 
IIwritedb(temp table2); 
Ilwritedb("."); 
IIwritedb(satt[select].a name); 
IIwritedb(","); 

) 

Iwritedb(satt[select].a_name); 
IIwritedb("z"); 
IIwritedb(temp table2); 
IIwritedb("."); 
IIwritedb(satt[select].a name); 
IIwritedb(")"); 
IlcsrQuery((char *)0); 

) /* ПсѕгОреп */ 


/*#&&&&4&4&4&4&д4&4&448&&&4&&8&&&&&&&&&&*/ 
| 

IIsgInit((char *)0); 

IIwritedb("create "); 

Ilwritedb(temp table); 

Ilwritedb("("); 

for (i=0;1<n-1;1++){ 

IIwritedb(satt[1].a name); 

Iwritedb("="); 
if ((stremp(satt[i].data type, "image") — 0) II 
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(strcmp(satt[i].data_type, “sound") == Q) Il 
(stremp(satt[i].data type, "integer") == 0)) 
IIwritedb("i4,"); 
else 
if (strcmp(satt[i].data, type, "float^) — 0) 
IIwritedb("f4,"); 
else 
/* char data_ */ 
IIwritedb(satt(1].data type); 
IIwritedb(","); 
| 
)} /* End of for loop i */ 
IIwritedb(satt[1].a. name); 
IIwritedb(" 2"); 
if ((stremp(satt[i].data type, "image") —- 0) Il 
(strcemp(satt[iJ.data type, "sound") == 0) Il 
(strcmp(satt(i].data type, "integer") -- 0)) 
IIwritedb(" i4"); 
else 
if (stremp(satt[i].data type, "float") == 0) 
IIwritedb( f4"); 
else 
( /* char data type */ 
IIwritedb(satt[1].data type); 
| 
IIwritedb(")"); 
IIsqSync(O,(char *)0); 


[* & & & & & & & & & & & & & & & & & & c cc & &* 


/* 3t line 3169 "db.sc" */ /* select */ 
| 

IIsgInit((char *)0); 
IIwritedb("retrieve(g-(count("); 
ITwritedb(temp table); 
IIwritedb("."); 
IIwritedb(satt[0].a name); 
IIwritedb(")))); 
IIsqRinit((char *)0); 
if (Ilerrtest() == 0) { 

if (IInextget() !2 0) ( 

Ilretdom(1,30,4,& g); 
| 
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IIsgFlush((char *)0); 
) 
) 


/* # line 3171 "db.sc" */ /* host code */ 

if (IIcsrOpen((char *)0,"cursor_output","db2",0,temp_table) != 0) { 
Iwritedb("retrieve("); 
for (select=0;select<n-1;select++) { 
IIwritedb(satt[select].a name); 
IIwritedb("2"); 
Ilwritedb(temp table); 
IIwritedb("."); 
IIwritedb(satt[select].a name); 
IIwritedb(","); 

) 

IIwritedb(satt[select].a name); 
IIwritedb("z"); 
IIwritedb(temp table); 
IIwritedb("."); 
IIwritedb(satt(select].a name); 
IIwritedb(")"); 
IIcsrQuery((char *)0); 

) 


/*printf(^n");*/ 

look. morez0; 

120; 

if (c==0) { 
look_more=1; 


) 


/* Fetch the cursor to the result relation which is the intermediate table 
hold the result from the query, then print out the tuple one at a time 
until no more record to print to the user */ 


/* # line 7 "insert.sc" */ /* insert */ 
| 
while (look more —- 0) | 
if (IIcsrFetch((char *)0,"cursor output","db1") != 0) { 
IIsgInit((char *)0); 
IIwritedb("append to "); 
IIwritedb(temp table); 
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IIwritedb("("); 
for (i=0;i<n-1;i++) { 
IIwritedb(satt[i]a name); 
IIwritedb(" 2"); 
if (stremp(satt[i].data type,"c20")——0) ( 
IIcsrRet(1,32,0, char. value); 
IIsetdom(1,32,0, char. value); 
| 
if (strcmp(satt[i].data_type, integer")==0) { 
IIcsrRet(1,30,4,&integer value); 
IIsetdom(1,30,4,&integer value); 
) 
if (stremp(satt[i].data_type,float")==0) { 
IicsrRet(1,31,4,&real_value); 
IIsetdom(1,31,4,& real. value); 
) 
if (stremp(satt[i]J.data type, "image" )——0) ( 
IlcsrRet(1,30,4,&media value); 
IIsetdom(1,30,4,& media value); 
) 
if (strcmp(satt[i].data_type,"sound")==0) { 
IlcsrRet(1,30,4,& medial. value), 
Ilsetdom(1,30,4,& medial value); 
) 
IIwritedb(","); 
| 
Iiwnitedb(satt[i].a_name); 
IIwritedb(" 2"); 
if (strcmp(satt[i].data_type,"c20")==0) { 
IIcsrRet(1,32,0, char. value); 
IIsetdom(1,32,0, char. value), 
) 
if (stremp(satt[i].data type," integer")——0) ( 
IIcsrRet(1,30,4,&integer value); 
IIsetdom(1,30,4, &integer value); 
) 
if (strcmp(satt[i].data type," float" )——0) | 
IIcsrRet(1,31,4,&real. value); 
IIsetdom(1,31,4,&real value); 
) 
if (strcmp(satt[i].data_type,"image")==0) { 
IIcsrRet(1,30,4,&m media value); 
IIsetdom(1,30,4,& media value); 
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ЛЕ 


| 
if (stremp(satt[i].data_type,"sound")==0) { 
IlcsrRet(1,30,4,& medial. value); 
IIsetdom(1,30,4,&medial value); 
| 
printf(^n");*/ 
IIcsrEFetch((char *)0); /* fetch the next record to the cursor */ 
H--; /* increment | as the counter */ 


І (іІ--с) ( /* check if no more data to print */ 
look more =]; /* exit of the loop */ 
| 
IIwritedb(" )"); 
IIsqSync(3,(char *)0); 
) /* IlcsrFetch */ 


) /* end while */ 


IIcsrClose((char *)0O,"cursor output ","db2"); /* close the cursor */ 


/* ft line 3171 "db.sc" */ /* host code */ 


if (IIcsrOpen((char *)0,"cursor output" ,"db2",0,temp table) != 0) { 


IIwritedb("retrieve("); 
for (select=0;select<n-1;select++) | 
IIwritedb(satt[select].a name); 
IIwritedb(" 2"); 
IIwritedb(temp. table); 
IIwritedb("."); 
IIwritedb(satt[select].a name); 
IIwritedb(","); 

| 
IIwritedb(satt[select].a name); 
IIwritedb( 2"); 
IIwritedb(temp. table); 
IIwritedb("."); 
IIwritedb(satt[select].a name), 
IIwritedb(")"); 
IIcsrQuery((char *)0); 


/*printf(^n");*/ 
look more-z0; 


=() ; 
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Ї (с==0)Ч| 
look_more=1; 


) 


/* Fetch the cursor to the result relation which is the intermediate table 
hold the result from the query, then print out the tuple one at a time 
until no more record to print to the user */ 


/* # line 7 "insert.sc" */ /* insert */ 
( 
while (look_more == 0) { 
if (IIcsrFetch((char *)0,"cursor_output","db3") != 0) { 
IIsgInit((char *)0); 
IIwritedb("append to "); 
IIwritedb(temp table); 
IIwritedb("("); 
for (i=0;i<n-1;i++) { 
IIwritedb(satt[i].a name); 
Uwritedb("="); 
if (stremp(satt[i].data type," c20")——0) | 
IIcsrRet(1,32,0, char. value); 
IIsetdom(1,32,0, char. value); 
| 
if (stremp(satt[i].data_type,"integer")==0) { 
IicsrRet(1,30,4,&integer value); 
IIsetdom(1,30,4,&integer value); 
| 
if (strcmp(satt[i].data_type,"float")==0) { 
IIcsrRet(1,31,4,&real value); 
IIsetdom(1,31,4,&real value); 
| 
if (stremp(satt[i].data_type,"image")==0) { 
IIcsrRet(1,30,4,& media value); 
IIsetdom(1,30,4,& media value); 
| 
if (strcmp(satt[i].data type," sound" )--0) ( 
IIcsrRet(1,30,4,& medial value), 
IIsetdom(1,30,4,& medial value); 
| 
IIwritedb(" ,"); 
| 
IIwritedb(satt(1].a name); 
IIwritedb("-"); 
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Мы 


if (stremp(satt[i].data type,"c20")——0) { 
IicsrRet(1,32,0, char. value); 
IIsetdom(1,32,0, char. value); 

) 

if (stremp(satt[i].data type," integer")——0) ( 
IlcsrRet(1,30,4,&integer value); 
Ilsetdom(1,30,4,&integer value); 

) 

if (strcmp(satt[i].data type," float")--0) ( 
IicsrRet(1,31,4,&real value); 
IIsetdom(1,31,4,&real value), 

) 

if (strcmp(satt[i].data type, "image")—0) ( 
IicsrRet(1,30,4,&media value); 
Ilsetdom(1,30,4,&media value); 

| 

if (strcmp(satt[i]J.data type," sound")—-0) | 
IicsrRet(1,30,4,& medial value); 
IIsetdom(1,30,4,& medial value); 

) 

printf("\n");*/ 

IicsrEFetch((char *)0); /* fetch the next record to the cursor */ 

1++; /* increment l as the counter */ 


if (I—0) ( /* check if no more data to print */ 
look more -1; /* exit of the loop */ 
) 
Iwritedb(" )"); 
IlsqSync(3,(char *)0); 
) /* IlcsrFetch */ 


) /* end while */ 


IIcsrClose((char *)0,"cursor output" ,"db2"); /* close the cursor */ 
IicsrClose((char *)0,"cursor. output","db1"); /* close the cursor */ 


IicsrClose((char *)0,"cursor output" ,"db3"); /* close the cursor */ 


retum(temp table); 


) 


РТ КК КЕК ЖЖЖ КЖ КЖ ЖЖ ЕЖ 


This function retrieves the tuples from temp tablel which do not take place in 


temp table2 and puts the result in temp table. 
ЕТТЕ Ж ЖКЖ ХЕ ЖЖЖ Ne He Se He HEM He He He EH eH 


minus(temp tablel, temp table2, temp table) 
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char temp table1[20]; 
char temp table2[20]; 
char temp table[20]; 
• . 
int i; 
IIsqInit((char *)0); 
IIwritedb("retrieve into "); 
IIwritedb(temp table); 
IIwritedb(" (^); 
for (i=0;i<n-1;i++) { 
IIwritedb(temp. table 1); 
IIwritedb("."); 
IHwritedb(satt[1].a name); 
Uwritedb(","); 
| 
IIwritedb(temp table1); 
Ilwritedb("."); 
IIwritedb(satt[i].a name); 
IIwritedb(")"); 


IIwritedb(" where any("); 
IIwritedb(temp table2); 
IIwritedb(".all by "); 
IIwritedb(temp table1); 
IIwritedb(".all '); 
IIwritedb(" where("); 
for (i=O;i<n-1;i++) { 
IIwritedb(temp tablel); 
IIwritedb( "."); 
IIwritedb(satt[i].a name); 
Iwritedb("="); 
IIwritedb(temp table2); 
IIwritedb("."); 
IIwritedb(satt[i].a name); 
IIwritedb(" and "); 
) 
Uwritedb(temp_table1); 
IIwritedb("."); 
IIwritedb(satt[1].a name); 
IIwritedb("-"); 
Ilwritedb(temp table2); 
IIwritedb("."); 
IIwritedb(satt(1].a name); 
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IIwritedb(" )"); 
IIwritedb(") = 0"); 
IIsqSync(O,(char *)0); 
retum(temp table); 


ПЕ ЕЕЕ ce e ale ok ak oe ae oe ale oj sje te oe heo sje oe ЖЖК ЖЖЖ ЖЖ oj je je e oj oj je oe leo oj sj ЖЖ ААЖ Ж 


This function intersects two tables and puts the result in temp table. 
EL LOL ЕЕЕ хх ЕХ ЖЖЖ ake ake ake ae ak / 
intersect tables(temp tablel, temp_table2, temp_table) 
char temp table1[20]; 
char temp table[20]; 
| . e 
int i; 
/* | copy to file(temp tablel);*/ 
IIsqlnit((char *)0); 
IIwritedb("retrieve into "); 
IIwritedb(temp table); 
IIwritedb(" (^); 
for (i=0;1<n-1;i++) { 
IH writedb(temp table1); 
IIwritedb("."); 
IIwritedb(satt[i].a name); 
I writedb(","); 
) 
IIwritedb(temp_table] ); 
IIwritedb("."); 
IIwritedb(satt[i].à name); 
IIwritedb(")"); 


IIwritedb(" where("); 
for (i=0;i<n-1;i++) { 
IIwritedb(temp table1); 
II writedb("."); 
IIwritedb(satt[i].a name); 
IIwritedb("z"); 
IIwritedb(temp table2); 
IIwritedb("."); 
IIwritedb(satt[1i].a name); 
IIwritedb(" and "); 
| 

IIwritedb(temp table1); 
IIwritedb("."); 
IIwritedb(satt(1].a name); 


163 


IIwritedb("="); 
IIwritedb(temp. table2); 
IIwritedb("."); 
IIwritedb(satt[i].a name), 
IIwritedb(" )"); 
IIsqSync(0,(char *)0); 
retum(temp. table); 


) 


f0 3 ЕЖ КЖ ХАЖ ЖЖЖ ЖКЖ ate ate ote oie is oie ОК ate kece ЫШЫК ЖОШ 


This function retrieves the tuples from temp tablel which are not included in temp2 and 
puts the result in temp_table. 
sk si sje te ae ЖКК КК ЖЖЖ ЖЖЖЖ ЕК ЖИ ЖОК К КАК ЖОН ЧЕН ааа аа 
templ not in temp2(temp tablel, temp table2, temp. table) 
char temp. table[20]; 
char temp. table1[20]; 
char temp table2[20]; 
° e 0 
int i,j; 


j70; 
printf(^nWe are in tablel. NOT IN table2 now"); 


sqica.sqicode = 0; /* Initialize as error free before access INGRES */ 
IIsglnit(&sglca); 
Ilwritedb(" retrieve into "); 
IIwritedb(temp table); 
IIwritedb("("); 
for (i=0;i<n-1;i++) { 
Iwritedb(satt[i].t_name); 


IIwritedb("."); 
IIwritedb(satt[i]J.a name); 
Hwritedb(","); 


) 

I writedb(satt[1].t name); 
IIwritedb("."); 
IIwritedb(satt[i].a. name); 
IIwritedb(")"); 


ITwritedb("where(any("); 

IIwritedb(temp table2); 

IIwritedb("."); 

IIwritedb(attribute for nested); 
/* Ilwritedb(".all by ");*/ 
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/* IIwritedb(temp. table1);*/ 
IIwritedb(" by "); 
IIwritedb(satt[i].t name); 
IIwritedb(".all '); 
IIwritedb(" where "); 
IIwritedb(" (^); 
IIwritedb(satt[i].t name); 

/* IIwritedb(temp table1);*/ 
IIwritedb("."); 
IIwritedb(condition for. nested); 
ILwritedb("="); 
Ilwritedb(temp table2); 
IIwritedb("."); 
IIwritedb(attribute for nested); 
IIwritedb(")"); 

IIwritedb(") = 0"); 

if (m>1){ 
IIwritedb(" and "); 
IIwritedb("(^); 
IIwritedb(join, condition); 
Iwritedb(")"); 
| 

IIwritedb(")"); 

IisqSync(0,&sqlca); 


if (sqica.sqicode != 0){ 
printf(^nAn error occurred while accessing the database"); 
for (j=j+1; j<m; j++){ 
init buffer(temp table1,20); 
strcpy(temp tablel, stab[j].t name); 


sglca.sqlcode — 0; /* Initialize as error free before access INGRES */ 


IIsgInit(&sqlca); 
IIwritedb("retrieve into "); 
IIwritedb(temp table); 
IIwritedb("("); 

for (i20;i«n-1;i4) ( 
]Iwritedb(satt[1].t name); 
IIwritedb("."); 
IIwritedb(satt[i].a name); 
IIwritedb(","); 
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ү" 
/* 


[% 


) 


Uwritedb(satt[i].t_name); 
IIwritedb("."); 
IIwritedb(satt[i].a name); 
Iwritedb(")"); 


IIwritedb("where(any("); 
IIwritedb(temp. table2); 
IIwritedb("."); 
IIwritedb(attribute for nested); 
IIwritedb(" by "); 
IIwritedb(".all by ");*/ 
IIwritedb(satt[i].t name); 
IIwritedb(temp. table1);*/ 
IIwritedb(".all "); 
IIwritedb(" where "); 
IIwritedb("("); 
IIwritedb(satt[i].t name); 
IIwritedb(temp table1);*/ 
IIwritedb("."); 
IIwritedb(condition for nested); 
IIwritedb( 2"); 
IIwritedb(temp table2); 
IIwritedb("."); 
IIwritedb(attribute for nested); 
IIwritedb(")"); 
IIwritedb(") 2 0"); 
if (m>1){ 
IIwritedb(" and "); 
IIwritedb("("); 
IIwritedb(join condition); 
IIwritedb(")"); 
) 
IIwritedb(")"); 
IIsqSync(O,&sqlca); 


}/* end for j<m */ 
)/* end if */ 


РЕКЕ ЕЕ А А Ж ЖЕК ЖЕ ЯК Жк ЕР MD 


This function joins templ and temp2 and retrives the tuples from temp! that takes place 


in temp2 and puts the result in temp table. 
ake ake Ake ake ahe ale ahe ake Ahe ake afe ake ЕЕ ЕКОЕ ЖЕКЕ ЕЖ КЕ а E 
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templ in temp2(temp tablel, temp table2, temp table) 
char temp. table[20]; 
char temp table1[20]; 
char temp table2[20]; 
. . 
int i,j; 
j=0; 


printf(^nWe are in table1_IN_table2 now’); 
sqlca.sqlcode = 0; /* Initialize as error free before access INGRES */ 
IIsgInit(&sqlca); 
ILwritedb("retrieve into "); 
IIwritedb(temp table); 
IIwritedb(" (^); 
for (i=0;i<n-1;i++) { 
IIwritedb(satt[i].t name); 
IIwritedb("."); 
IIwritedb(satt[1].a name); 
IIwritedb(","); 
| 
IIwritedb(satt[i].t name); 
IIwritedb("."); 
IIwritedb(satt[1].a name); 
IIwritedb(")"); 


IIwritedb("where("); 
IIwritedb(" (^); 
IIwritedb(temp table1); 
IIwritedb("."); 
IIwritedb(condition for nested); 
IIwritedb("z"); 
IIwritedb(temp. table2); 
IIwritedb("."); 
IIwritedb(attribute for nested); 
IIwritedb(")"); 
if (m>1){ 
IIwritedb(" and "); 
IIwritedb("("); 
IIwritedb(join condition); 
IIwritedb(")"); 
| 
IIwritedb(")"); 
IIsqSync(0,&sqlca); 
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if (sqlca.sqlcode != 0){ 
for (j=j+1; j<m; j++){ 
init buffer(temp table1,20); 
strcpy(temp tablel, stab[j].t name); 
sqica.sqlcode = 0; /* Initialize as error free before access INGRES */ 
IIsgInit(&sqlca); 
IIwritedb(" retrieve into "); 
IIwritedb(temp table); 
IIwritedb(" (^); 
for (i=0;i<n-1;i++) ( 
IIwritedb(satt(1].t name); 
IIwritedb("."); 
IIwritedb(satt(1].a name); 
IIwritedb(","); 
| 
IIwritedb(satt[i].t name); 
IIwritedb("."); 
IIwritedb(satt[1].a name); 
IIwritedb(")"); 


IIwritedb("where("); 
IIwritedb("("); 
IIwritedb(temp table1); 
Ilwritedb("."); 
IIwritedb(condition for nested), 
IIwritedb("-"); 
IIwritedb(temp table2); 
IIwritedb("."); 
IIwritedb(attribute for nested); 
IIwritedb(")"); 
if (m»1)| 
IIwritedb(" and "); 
IIwritedb("("); 
IIwritedb(join condition); 
IIwritedb(")"); 
| 
IIwritedb(")"); 
IIsqSync(0,&sqlca); 
)/* end for */ 
)/* end if */ 


) 


[F6 E k k k ak ak ake ake ak ake ke ok oj oe ke ke oe oe ke ke be ke oe oe he ke oj je ke ke ke je ke жж ke ke oj oj oe жж жк ж жж 
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This function joins templ and temp2 and retrieves the їир1е$ from temp1 that do not take 
place in temp2 and puts the result in temp table. 
И ЖЕЖ КЖ ЖЖЖ ЖЖЖ ЖЖЖ f 
temp!_not_exists_temp2(temp_table1, temp_table2, temp table) 
char temp_table[20]; 
char temp_table1[20]; 
char temp table2[20]; 
e e o 
int 1,); 
j=0; 
printf("\nWe are in table1_not_exists_table2 now’); 
sqlca.sqicode = 0; /* Initialize as error free before access INGRES */ 


IIsglInit(&sqlca); 

IIwritedb(" retrieve into "); 

IIwritedb(temp table); 

IIwritedb("("); 

for (i=0;i<n-1;i++) { 
IIwrtedb(satt[i].t name); 
IIwritedb("."); 
IIwritedb(satt[i].a name); 
IIwritedb(","); 

) 

IIwritedb(satt(1].t name); 

IIwritedb("."), 

IIwritedb(satt[i].a name); 

IIwritedb(")"); 


IIwritedb("where(any("); 
IIwritedb(temp table2); 
IIwritedb(".all by "); 
IIwritedb(satt[i].t name); 
/* Iwritedb(temp table1);*/ 

IIwritedb(".all "); 
IIwritedb(" where "); 
IIwritedb("("); 
IIwritedb(join for nested); 
IIwritedb(")"); 
IIwritedb(")20"); 
if (т>1){ 

IIwritedb(" and "); 

IIwritedb("("); 

IIwritedb(join condition); 
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IIwritedb(")"); 


| 
IIwritedb(")"); 


IIsqSync(0,&sqlca); 


if (sqlca.sqlcode != 0){ 
printf(^nError occurred while accessing the database"); 
for (jzj*l; j<m; j++){ 
init buffer(temp table1,20); 
strcpy(temp. tablel, stab[j].t name); 
sqlca.sqlcode — 0; /* Initialize as error free before access INGRES */ 


IIsgInit(&sqlca); 

IIwritedb(temp table); 

IIwritedb(" (^); 

for (i=0;i<n-1;i++) { 
Ilwnitedb(satt[i].t_name); 
IIwritedb("."); 
IIwritedb(satt[i].a name), 
IIwritedb(","); 

| 

Uwritedb(satt[i].t_name); 

Uwritedb("."); 

Uwritedb(satt[i].a_name); 

IIwritedb(")"); 


IIwritedb(" where(any("); 
IIwritedb(temp table2); 
IIwritedb(".all by "); 
IIwritedb(satt[i].t name); 
/*IIwritedb(temp. table1);*/ 
IIwritedb(".all "); 
IIlwritedb(" where "); 
Uwritedb("("): 
IIwritedb(join for nested); 
IIwritedb(")"); 
IIwritedb(")20"); 
if (m>1){ 
IIwritedb(" and "); 
IIwritedb("("); 
IIwritedb(join condition); 
IIwritedb(")"); 
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) 
IIwritedb(")"); 


IisqS ync(0,&sqlca); 


)/* end j«m */ 
)/* end sqlca.sqlcode != 0 */ 


[Ok ккк жж ккк же Ж Ж ЖЖ oook 


This function retrives the tuples from temp] that exists in temp2 and puts the 
result in temp_table. 
РЕКЕ КК КК Ree at Ace ake ab ae ae cbe obe si sie hee He ake sfe ake abe ofe sfe ake abe Ae ee he he ЖЖЖ ЖА Ж / 
temp1_exists_temp2(temp_tablel, temp_table2, temp_table) 
char temp. table[20]; 
char temp table1[20]; 
char temp  table2[20]; 
. ee 

int i,j; 

ј=0; 


printf(^nWe are in tablel exists table2 now"); 
sqica.sqicode = 0; /* Initialize as error free before access INGRES */ 


IIsgInit( &sqlca); 

IIwritedb(" retrieve into "); 

IIwritedb(temp table); 

IIwritedb("("); 

for (i=0;i<n-1;i++) { 
Ilwnitedb(satt[i].t_name); 
IIwritedb("."); 
IIwritedb(satt[i].aà name); 
IIwritedb(","); 

) 

IIwritedb(satt[i].t name); 

Iwritedb("."); 

IlIwritedb(satt[i].a name); 

IIwritedb(")"); 


Iwritedb("where("’); 
IIwritedb("("); 
IIwritedb(join for nested); 
IIwritedb(")"); 

if (m>1){ 
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IIwritedb(" and "); 
IIwritedb("("); 
IIwritedb(join condition); 
IIwritedb(")"); 

| 

IIwritedb(")"); 

IIsqSync(0,&sqlca); 


if (sqlca.sqicode != 0){ 
for (j=j+1; j<m; j++){ 
init_buffer(temp_table1,20); 
strcpy(temp tablel, stab[j].t name); 
sqica.sqicode = 0; /* Initialize as error free before access INGRES */ 


IIsgInit(&sqlca); 
IIwritedb(" retrieve into "); 
IIwritedb(temp table); 
IIwritedb("("); 
for (i=0;i<n-1;i++) { 
IIwritedb(satt[i].t name); 
IIwritedb("."); 
IIwritedb(satt[1].a name); 
IIwritedb(","); 
) 
IIlwritedb(satt[i].t_name),; 
IIwritedb("."); 
IIwritedb(satt[1].a name); 
IIwritedb(")"); 


IIwritedb(" where("); 

IIwritedb("("); 

IIwritedb(join for nested); 
IIwritedb(")"); 

if (m>1){ 

IIwritedb(" and "); 
IIwritedb(" (^); 
IIwritedb(join condition); 
IIwritedb(")"); 

) 

IIwritedb(")"); 
IisqSync(0,&sqlca); 

)/* end if j«m */ 
)/* end for */ 


172 


) 


Ра Ек жж ЖЖЖ ЖЖЖ ak ak ake 


This function calculates the number of tuples retrieved in the result table and prints the 
number of tuples. 
ak ake ake ak ake ake GIO ЖЖ ЖЖЖ Ж ЖЖЖ ЖЖЖ ЖЖЖ RA TCI aI ARIK / 
void print_count(temp_table, 1) 
char temp  table[20]; 
int i; 
( 
int t=0; 
{ 
IIsgInit((char *)0); 
IIwritedb("retrieve unique(t-( ^); 
IIwritedb(" count); 
IIwritedb(" (^); 
IIwritedb(temp table); 
Ilwritedb("."); 
IIwritedb(satt[i].a name); 
IIwritedb(")))"); 
IIsqRinit((char *)0); 
if (Ilerrtest() == 0) { 
if (IInextget() !2 0) { 
IlIretdom(1,30,4,&t); 
) /* IHinextget */ 
IIsqFlush((char *)0); 
) /* Ilerrtest */ 


print" COUNT(?26s) — 96d ",satt[i].a name, t); 


LUE Nolo les ke voe sie le sehe se ne se sje oe sje oe he he je e be sk she he sje sh ole oh oj sfe se fe ae ake jede fe 


This function calculates the sum of a cloumn retrieved in the result table and prints the 
sum. 
РЕТКЕ ЕКИ ЖЕКЕ ЖАК He He He He He He Ae He He He у 
void print_sum(temp_table, i) 
char temp. table[20]; 
int 1; 
| 
int t=0; 
| 

IIsgInit((char *)0); 

IIwritedb(" retrieve unique(t2("); 

IIwritedb( sum"); 

IIwritedb("("); 
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IIwritedb(temp table); 
IIwritedb("."); 
IIwritedb(satt[1].a name); 
IIwritedb(")))"); 
IIsqRinit((char *)0); 
if (IIerrtest() 22 0) ( 
if (IInextget() != 0) ( 
IIretdom(1,30,4,&t); 
) /* IInextget */ 
IIsqFlush((char *)0); 
) /* Ilerrtest */ 


) 
printf("SUM(%s) = %d_ ",satt{i].a_name, t); 
) 


[r Ae Ae ake ade abe sbe ste ste ahe ohe EARE d ae ake ake akel ake ake ale eN ыы ыы ыы ы ышы „лыы шы 


This function calculates the average of an attribute of a tuple retrieved in the result table 
and prints the average. 
akak ake ke e eA КТ КА КА Жк ата а E 
void print_avg(temp_table, 1) 
char temp_table[20]; 
int 1; 
| 
int 1=0; 
IIsgInit((char *)0); 
Ilwritedb("retrieve unique(t=(""); 
IIwritedb("avg"); 
IIwritedb("("); 
liwritedb(temp table); 
IIwritedb("."); 
Ilwritedb(satt[1].a name); 
IIwritedb(")))); 
IIsqRinit((char *)0); 
if (Ilerrtest() —— 0) ( 
if (IInextget() !2 0) ( 
Ilretdom(1,30,4,&t); 
) /* IInextget */ 
IIsqFlush((char *)0); 
) /* Herrtest */ 
| 
pnntf("AVG(%s) = %d" satt[i].a_name, 1); 
| 


[PE > > a ak 2k ЖЖ АЖЖ COI IOI КЖ >k 
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This function finds the max of a coloumn of a tuple in the temp table and prints the max. 
ж 
void print_max(temp_table, 1) 
char temp_table[20]; 
int 1; 
| 
int t=0; 
{ 
IIsgInit((char *)0); 
IIwritedb(" retrieve unique(t=(""); 
IIwritedb( max"); 
IIwritedb("("); 
IIwritedb(temp, table); 
IIwritedb("."); 
IIwritedb(satt[i].a name); 
IIwritedb(")))"); 
IIsqRinit((char *)0); 
if (Ilerrtest() — 0) { 
if (IInextget() != 0) | 
IIretdom(1,30,4,&t); 
) /* Ilnextget */ 
IlsqFlush((char *)0); 
) /* Herrtest */ 


) 
printf("MAX(%s) = %d_ ",satt[i].a_name, t); 
) 


ТЕРЕК КАК se e je she e be be dee je sb de oe obe e ode ae je she ake ake akr ake ak 


This function calculates the min of an attribute of a tuple retrieved in the temp. table and 
prints the min. 
тела Кн ЖКК she ake ake afe afe sbe ahe afe ale ahe ate afe ake afe afe ake afe ake ahe ake ake afe ahe ahe ae ake ak ake 
void print_min(temp_table, i) 
char temp_table[20]; 
int 1; 
| 
int t=0; 
| 
IIsgInit((char *)0); 
IIwritedb( retrieve unique(t-("); 
IIwritedb(" min"); 
IIwritedb(" (^); 
IIwritedb(temp table); 
IIwritedb("."); 
IIwritedb(satt[i].a name); 
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Hwritedb(")))"); 
UsqRinit((char *)0); 
if (Пегпе5б) -- 0) { 
if (IInextget() != 0) { 
Iretdom(1,30,4,&t); 
) /* Hinextget */ 
IIsqFlush((char *)0); 
) /* Ilerrtest */ 
| 
printf("MIN(%s) = %d_ ",satt[i].a_name, t); 


[Hehe de ehe ke je de he de ЕК АМ КК ЖЕ ЖЕЖ ЖИ A A ЖАШЫНЫ 


This function checks the aggregate type in the struct satt and calls the appropriate 
function. 
ate He se se she je be ste he b ke be de bebe be be de je be e ode b de eje he je he He We ee ee ee je be de ke e ke ee oe ie vh eode e he e ie lese aie sfe sfe ale ale aie ale ake sieste / 
print aggregates(temp table) 
char temp. table[20]; 
| 
int v; 
for(v=0; v<n; v++){ 
if (satt[v].aggregate type—-1) 
print. count(temp. table, v); 
if (satt[v].aggregate_type==2) 
print_sum(temp_table, v); 
if (satt|v].aggregate_type==3) 
print_avg(temp_table, v); 
if (satt[v].aggregate_type==4) 
print_max(temp_table, v); 
if (satt[v].aggregate_type==5) 
print_min(temp_table, v); 
| 
| 


[PR kk ke ee oe oe ke ke be ke ke ke s be oe ke ke be ke sje se je je je bebe be jeje je je be be je je jeje je je je be be oje se jeje ЖОК К sfe sfe sie aie se sfe sle ale sfe sie sie 


This function prints the tuples retrived in the result table. 
We sese e sje he esi ae ne he de dese ahe ste sfe she sfe she she ae ake abe ahe ahe sle afe sfe ale afe sle sfe je e je obe ste ahe afe ahe afe ate abe sfe ahe afe she he ste ahe afe ae ae Mi sfe she sge sfe afe ate olcas ite 
print_result_table(temp_table,flag,c) 
char temp table[20]; 
int flag; 
int C; 
( 
int v; 
int j=0,k=0,1=0,temp,select=0; 
char char_value[21],a, Ans; 
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char file name[20]; 
int integer value,media value,found,medial, value; 
float real value; 
int record id; 
int i20; 
с=0; 
/* # line 3169 "db.sc" */ /* select */ 
{ 
IIsqlnit((char *)0); 
IIwritedb("retrieve unique(c2(count("); 
IIwritedb(temp. table); 
IIwritedb("."); 
llwritedb(satt[(0].a name); 
IIwritedb(")))"); 
IIsqRinit((char *)0); 
if (Merrtest() == 0) | 
if (IInextget() !2 0) ( 
IIretdom(1,30,4,&c); 
) /* Iinextget */ 
IIsqFlush((char *)0); 
) /* Ilerrtest */ 
) 
120; 
if (flag==FALSE) { 
printf("\nThere are %d records that match the query",c); 


if (c——0) | 
printf("\nPress ENTER to continue..."); 
a=getchar(); 
return; 


) 


) 
/* # line 3171 "db.sc" */ /* host code */ 
if (IicsrOpen((char *)0,"cursor_output" ,"db1",0,temp_table) != 0) { 
Iwritedb("retrieve ("); 
for (select=0;select<n-1;select++) { 
Ilwritedb(satt[select].a name); 
Ilwritedb(" 2"); 
Ilwritedb(temp. table); 
Ilwritedb("."); 
Ilwritedb(satt[select].a name); 
IIwritedb(","); 
) 
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IIwritedb(satt[select].a name); 
Dwritedb("="); 
IIwritedb(temp. table); 
IIwritedb("."); 
IIwritedb(satt[select].a name); 
IIwritedb(")"); 
IIcsrQuery((char *)0); 
| /* ПсѕгОреп */ 

printf(^n"); 

look. more-0; 

120; 

if (c==0) { 

look_more=1; 
) 

/* Fetch the cursor to the result relation which is the intermediate table 
hold the result from the query, then print out the tuple one at a time 
until no more record to print to the user */ 

while (look_more == 0) ( 

if (IIcsrFetch((char *)0,"cursor_output","db1") != 0) ( 
printf("record іа Фа м",1+1); 
for (1=0;i<n;i++) ( 
if (strcemp(satt[i].data type,"c20")2—0) ( 
IIcsrRet(1,32,0,char. value); 
if (satt[i].aggregate_type==0) 
printf("%s : 9os",satt[i]J.a name,char value); 


) 
if (strcmp(satt[1].data %уре, "імерег )--0) ( 
IIcsrRet(1,30,4,&integer value); 
if (satt[1].aggregate_type==0) 
printf("7gos : 9od ",satt[1].a name,integer, value); 
) 
if (strcmp(satt[i].data_type,"float")==0) ( 
IIcsrRet(1,31,4,&real value); 
if (satt[1].aggregate type—-0) 
printf("%s : %8.2f ",satt[i].a_name,real_value); 
} 
if (strcmp(satt[i].data_type,"image")==0) { 
IicsrRet(1,30,4,&media_value); 
if (satt[i].aggregate_type==0) 
printf("9os id is 96d ",satt[i]J.a name,media, value); 
| 


if (strcmp(satt[i].data_type,"sound")==0) { 
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UcsrRet(1,30,4,&medial_value); 
if (satt[i].aggregate_type==0) 
printf("%s id is %d",satt[i].a_name,medial_value); 
) 
) /* end for select « n*/ 
IlcsrEFetch((char *)0); /* fetch the next record to the cursor */ 
|; /* increment 1 as the counter */ 
if (l==c) { /* check if no more data to print */ 
look more =1; /* exit of the loop */ 

| 
print aggregates(temp table); 
printf("N\n"); 
} /* IIcsrFetch */ 

) /* end while */ 

IIcsrClose((char *)0,"cursor_output","db1"); /* close the cursor */ 

if (flag--FALSE)| 

printf("Press ENTER to continue .."); 
a= getchar(); 
) 
/* this for the check for the media selection */ 
if (c==0) { 
129999; 
) 


/* if there are some aggregate functions print their results */ 
/* print aggregates(temp table); 

printf(^nPress ENTER to continue .."); 

a= getchar();*/ 

return(c); 
| 


ИИИ к т ЕК ККЖ АК ЖЕК 


This function gets the image id of a tuple in the result table. 
ЖКЖ ЖА ОКЖ k / 
get_image_id(r,image_id) 
int r; 
int image. id; 
| 

int sound id; 

int entry; 

int desired tuple; 

char c. temp[60]; 

int count=0; 

int j=0,k=0,1=0,temp; 
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char char. value[21 ],a; 
char file name[20]; 
int img value, snd, value; 
int integer value,media value,found,medial value; 
float real, value; 
int i=0,select=0; 
int g=0; 
int d; 
1_value[i_index J=0; 
desired_tuple=r; 
/* # line 3169 "db.sc" */ /* select */ 
| 
IIsgInit((char *)0); 
IIwritedb("retrieve(gz(count("); 
IIwritedb(temp. table); 
IIwritedb("."); 
IIwritedb(satt[0].a name); 
I writedb(")))); 
IIsqRinit((char *)0); 
if (IIerrtest() == 0) { 
if (Inextget() !2 0) { 
Ilretdom(1,30,4,&g); 
) /* IInextget */ 
IIsqFlush((char *)0); 
) /* Ilerrtest */ 
) 
1=0; 
if (g==0) { 
printf("\nPress ENTER to continue..."); 
a=getchar(); 
return; 


| 
/* € line 3171 "db.sc" */ /* host code */ 
if (IlcsrOpen((char *)0,"cursor. output","db2",0,temp table) !2 0) ( 
IIwritedb("retrieve("); 
for (select=0;select<n-1;select++) { 
IIwritedb(satt[select].a name), 
IIwritedb(" 2"); 
IIwritedb(temp table); 
IIwritedb("."); 
IIwritedb(satt[select].a name); 
IIwritedb(","); 


) 
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IIwritedb(satt[select].a name); 
IIwritedb("z"); 
IIwritedb(temp table); 
IIwritedb("."); 
IIwritedb(satt[select].a name); 
IIwritedb(")"); 
IcsrQuery((char *)0); 
) /* IicsrOpen */ 
printf(^n"); 
look more-0, 
1=0; 
if (g==0) { 
look_more=1; 


/* Fetch the cursor to the result relation which is the intermediate table 
hold the result from the query, then print out the tuple one at a time 
until no more record to print to the user */ 


while (look_more == 0) { 
if (icsrFetch((char *)0,"cursor_output","db2") != 0) ( 
if (desired_tuple == 1){ 
printf("record за %а “" 1+1); 
) 
for (1=0;1<n;i++) | 
if (strcmp(satt[i}].data_type,"c20")==0) ( 
IcsrRet(1,32,0,char_value); 
if (desired tuple —- 1)( 
printf("%s : %s" ,satt[i].a_name,char_value); 
) 
) 
if (strcmp(satt[i].data_type,"integer")==0) ( 
IlcsrRet(1,30,4,&integer value); 
if (desired tuple == 1)( 
printf("7os : 96d ",satt[i]J.a name,integer value); 
) 
) 
if (strcemp(satt[i].data type,"float")——0) | 
UcsrRet(1,31,4,&real_ value); 
if (desired_tuple == 1)({ 
printf("9os : 908.2f ",att[i]J.a name,real value); 
) 


| 
if (stremp(satt[i].data_type,"image")==0) ( 
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/* 


IIcsrRet(1,30,4,& media value); 
if (desired_tuple == 1){ 
image_id=media_value; 
printf("%s id is %d_ ",satt[i].a_name,media_value); 
) 
if (stremp(satt[i].data_type, sound” )==0) ( 
IlcsrRet(1,30,4,& medial, value); 
if (desired tuple 2 1){ 
sound idzmedial, value;*/ 
printf("9os 9od",satt[i].a name,medial value); 
) 
) 
}/*end for select n*/ 
IIcsrEFetch((char *)0); /* fetch the next record to the cursor */ 
l++; /* increment | as the counter */ 
if (l==g) { /* check if no more data to print */ 
look more z1; /* exit of the loop */ 


) 


} /* ПсзгРеїсһ */ 
| /* end while */ 


IIcsrClose((char *)0," cursor. output","db2"); /* close the cursor */ 


printf(^nPress ENTER to continue .."); 


a= getchar(); 


return(image_id); 


) 


кж e aheste she she ahe ke ope ke obe oe eoe abe e ARM Ae Meh AeA He eoe e se spe she afe afe afe afe sfe afe sfe afe ale ale ale ate sfe afe afe afe ale afe afe afe ale ale ake aik ake Sie OERE E 


This function gets the sound id of a tuple in the result table. 
si sj e eb e obe esee je ese ese eb e obe He ee Me He He Me Me Me Hee MRAM eM He жан кил кин ал т Ы 


get_sound_id(r,sound_id) 


int r; 


int sound_id; 


| 


int image id; 

int entry; 

int desired tuple; 
char c temp[60]; 

int count=0; 

int j=0,k=0,1=0,temp; 
char char_value[21],a; 
char file name[20]; 
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int img value, snd value; 
int integer value,media value,found,medial value; 
float real value; 
int i=0,select=0; 
int g=0; 
int d; 
i_value[i_index ]=0; 
desired_tuple=r; 
/* st line 3169 "db.sc" */ /* select */ 
| 
IIsgInit((char *)0); 
IIwritedb("retrieve(g2(count("); 
llwritedb(temp table); 
IIwritedb("."); 
ILlwritedb(satt[0].a name); 
IIwritedb(")))"); 
IIsqRinit((char *)0); 
if (Ilerrtest() 2- 0) | 
if (IInextget() != 0) { 
IIretdom(1 ,30,4,& 2); 
) /* IInextget */ 
IIsqFlush((char *)0); 
) /* Ilerrtest */ 
| 
1-6; 
if (g==0) { 
printf("\nPress ENTER to continue..."); 
a=getchar(); 
return; 
| 
/* # line 3171 "db.sc" */ /* host code */ 
if (IIcsrOpen((char *)O,"cursor. output","db2",0,temp table) != 0) { 
IIwritedb("retrieve("); 
for (select=0;select<n-1;select++) { 
IIwritedb(satt[select].a name); 
IIwritedb(" 2"); 
IIwritedb(temp table); 
Ilwritedb("."); 
IIwritedb(satt[select].a name); 
IIwritedb(" ,"); 
| 
IIwritedb(satt[select].a name); 
IIwritedb(" 2"); 
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IIwritedb(temp table); 
IIwritedb("."); 
IIwritedb(satt[select].a name); 
IIwritedb(")"); 
I[csrQuery((char *)0); 
) /* ПсѕгОреп */ 
printf("\n"); 
look_more=0; 
1-0; 
if (g==0) { 
look_more=1; 
) 
/* Fetch the cursor to the result relation which is the intermediate table 
hold the result from the query, then print out the tuple one at a time 
until no more record to print to the user */ 


while (look_more == 0) | 
if (IIcsrFetch((char *)0,"cursor output","db2") != 0) | 
if (desired tuple — 1){ 
printf("record id %d \t" +1); 
) 
for (i=0;1<n;1++) { 
if (strcmp(satt[i].data_type,"c20")==0) | 
lIcsrRet(1,32,0,char. value); 
if (desired_tuple == 1){ 
printf("%s : %s",satt[i].a_name,char_value); 
| 
| 
if (stremp(satt[i].data_type,"integer")==0) { 
IIcsrRet(1,30,4,&integer value); 
if (desired_tuple == 1){ 
printf("%s : %d_ ",satt[i].a_name,integer_value); 
) 
| 
if (stremp(satt[i].data type," float" )——0) { 
IIcsrRet(1,31,4,&real value); 
if (desired tuple == 1) 
printf("9os : 908.2f ",att(i]J.a name,real value); 
| 
| 
if (stremp(satt[i].data type,"image")—-0) | 
IIcsrRet(1,30,4,& media, value); 
if (desired_tuple == 1){ 
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yx image id-media, value;*/ 
printf("%s id is Yd ",satt[i].àa name,media value); 
| 
) 
if (strcmp(satt[i].data_type,"sound")==0) ( 
IIcsrRet(1,30,4,&medial value); 
if (desired_tuple == 1){ 
sound_id=medial_value; 
printf("%s %d" ,satt[i].a_name,medial_value); 
| 
) 
)/*end for select n*/ 
IicsrEFetch((char *)0); /* fetch the next record to the cursor */ 
19+; /* increment l as the counter */ 
if (l==g) { /* check if no more data to print */ 
look_more =1; /* exit of the loop */ 
| 
) /* IIcsrFetch */ 
) /* end while */ 


IicsrClose((char *)O,"cursor output","db2"); /* close the cursor */ 
retumn(sound. id); 


ER Кккк ккк КЖК ККЖ ЖЖЖЖ КЖК ЖЖЖЖ ККК ЖЖЖЖ 


This function calls the function print_result_table and then queries the user if he wants 
to display any media data. 

a E E ккк AH A A eM КЖКЖ ЖКК КЖК de bee te beoe eee / 

ql printdata(temp table) 

char temp table[20]; 


( 
int image_id=0; 
int sound_id=0; 
int c=0,j=0,k=0,1=0,temp,select=0; 
char char_value[21],a, Ans; 
char file name[20]; 
int integer value,media, value,found,medial value; 
float real value; 
int record id, flag-FALSE;, 
int 1-0; 
c-print result table(temp table, flag, c); 
flag- TRUE; 
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for (k=0;k<n;k++) { 
if ((strcmp(satt[k].data_type, image")==0)II(strcmp(satt[k].data_type,""sound")==0)) { 
if (stremp(satt[k].data_type, image" )==0) 
printf("\nDo you want to display any media data ? (y/n)"); 
if (strcmp(satt|k].data_type,"sound" )==0) 
printf(^nDo you want to display any media data ? (y/n)"); 
Ans-yes no answet(); 
if ((Ans--121)ll(Ans2-89))( 
for (К=0;К<п;К++) ( 
if (stremp(satt[k].data type,"image")—-0) ( 
Ans =121; 
while ((Ans == 121) Il (Ans == 89)){ 
if (c>1){ 
printf("\n\nWhich tuple’s image do you want to see? (enter record id) :"); 
scanf("%d", &record_id); 
getchar(); 
printf("record_id --> %d", record_id); 
| 
if (c==1) 
record_id=1; 
if (c==0) 
goto final; 
j = record_id - 1; 
image_id=get_image_id(j,image_id); 
for (i=0;i<n;i++) { 
if (strcmp(satt[i].data_type, "image")==0) ( 
strcpy(table array[table index].table name, satt[1].t name); 
found - check table name(); 
table cursor = table entry; 
strcpy(media name,satt[i].a name); 
get media name(); 
display photo(i,j,temp. table,image. id); 
| 
| 


printf£(^nDo you want to see more image data ? (Y/N) :"); 
Ans=yes_no_answer(); 
if ((Ans==121)II(Ans==89)) 
print_result_table(temp_table,flag); 
if ((Ans==110)II(Ans==78)) 
goto next; 
) 
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next: 
for (k=0;k<n;k++) { 
if (strcmp(satt[k].data type,"sound")——0) | 


Ans =121; 
while ((Ans == 121) ll (Ans == 89)){ 
print_result_table(temp_table, flag); 
if (c>1){ 
printf("\nWhich tuple’s sound do you want to hear? (enter record id) :"); 
scanf("%d", &record_id); 
) 
if (c==1){ 
record_id=1; 
) 
if (c==0) 
goto final; 
j = record_id - 1; 
sound_id=get_sound_id(j,sound_id); 
for (i=0;1<n;i++) { 
if (strcmp(satt[i].data_type,"sound")==0) | 
printf("\nSound management"); 
strcpy(table array[table index].table name, satt[i].t name); 
found - check table name(); 
table cursor - table entry; 
strcpy(media name,satt[i].a name); 
get media namer(); 
display sound(i,j,temp, table, sound id); 
| 


| 
printf(^nDo you want to hear more sound data ? (Y/N) :"); 


Ans-yes no answei(); 
) 


) 
}/* end if ans=121 (the one at the top) */ 


else 
-900; 

}/*end if stremp(datatype=image or sound) */ 
}/* end for k<n (top one ) */ 

/*printf(^n");*/ 
/* Drop table result after finished print */ 
/*drop. table(temp table);*/ 

final: 
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drop_temp_media_tables(); 


ыыы ыыы ы ыыы ыы ыыы ы жазан але кенен мыйысы ы 


This function drops a table in INGRES. 
sje de je sje de sje be eae he He ae ЖЕЖ ЖЕКЕ ЖЖЖ eae Ae / 
drop_table(table_name) 
char table_name[20]; 
{ 
( 
IIsgInit((char *)0); 
IIwritedb("destroy "); 
IIwritedb(table name); 
IIsqSync(O,(char *)0); 
| 


/*#**# ЕЖЕ КККК КК EERE 


This function initializes an array upto size 100. 
ЖЖЖЖ ЖЖЖИ ЕЖА 1 
init buffer(buffer,j) 
char buffer[100]; 
int j; 
| 

int i; 

for (1=0;1<j;it++) ( 

buffer[i] = ^0”; 
| 


ИЕ как нк ае 
This function drops the temporary media tables used to hold the intermediate results of 
a query. 
ыыы ы ы ы ы ыыы ыы ышы „ыыы 
drop_temp_media_tables() 
| 
int k; 
char 1[5]; 
char tempstring[100]; 
for (k=0; k<10; k++){ 
strcpy(tempstring, "р"); 
inttostr(k,l); 
strcat(tempstring,l); 
IIsgInit((char *)0); 
IIwritedb("destroy "); 
IIwritedb(tempstring); 
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IIsqSync(O,(char *)0); 
init buffer(tempstring,100); 
init buffer(1,5); 
| 
| 


РЕК ЖЕЖ Ж ЖЖЖ ЖЖЖ Ж Ж 


This function asks the user to enter a join condition. 
ЕРЕК ЖЖК be ahe se ake abe He be afe afe ae ake ake ale ake ake ake ake ake ake ake ak ake ak ake / 


void help_join() 
| 
int 1-0; 
if (m > 1) { 
strcpy(join_condition,"?"); 
while (strcmp(join_condition, '?")==0) { 
printf('\nPlease enter your join condition\n(<?> for help!) :"); 
gets(join_condition); 
if (strcmp(join_condition,"?")==0) | 
for (i=0;i<im;i++) { 
printfí(^nTable 96s ",stab[i].t_name); 
p att(stab[1].t name); 
} /* end for loop */ 
) /* end if need help for join */ 
)/*end while*/ 
) /* end if more than 1 table select */ 


жж ЖЖК ККЖ ЖЖ 


This user asks the user to enter three temp table names for intersection. 
есауыл ыы ыы ыы! 
char get_temp_table_names_for_intersection(temp_table1,temp_table2,temp_table) 
char temp table![20]; 
char temp table2[20]; 
char temp table[20]; 
| 
printf(^nEnter first temp table name :"); 
gets(buff); 
strcpy(temp tablel, buff); 
init buffer(buff,100); 
printf(^nEnter second temp table пате :"); 
gets(buff); 
strcpy(temp table2, buff); 
init buffer(buff,100); 
printf(^nEnter another temporary table name to hold the result : 


2 
м. 
we 
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gets(buff); 
strcpy(temp_table, buff); 
init buffer(buff,100); 


returi(temp tablel, temp table2, temp, table); 


) 


Јен Ц 


This function shows the intersect/union/minus menu. 
ake ak ake ake ake ake ake ake CIO CII OR ATI ACTOR RACH AAC FAH A ACH | 
char intersect_union_menu(answer) 
char answer; 
answer = ’?’; 
/* while (!( ’0’<= answer && answer <= '3')) 


{*/ 
clr_scr(); 
printf(^nIf you want to intersect / union / minus any two temporary tables:\n"); 
printf{((N====================\n"); 














printf("\n\t1. INTERSECT two tables"); 
printf("\nt2. UNION two tables"); 
printf( x3. MINUS"); 
printf(^nNO0. Quit”); 
ртіп ("Там Т 10): 
printf("\n\Select your choice :: "); 
answer = getchar(); 
while ((c = getchar()) != ^п’) 
; /* Not retum do nothing */ 
ГЕ 


return (answer); 




















ГЕКСАН К BERGA ARH AM ES AeA к нж а 


This function asks the user if he wants to union/intersect/minus any two tables and p[uts 
the result in temp_table. 

He He He EN Me He 34e ahe A Me AACA He Me Ae He Ae He He Ae afe Ke eA AM A AAA A к нк E IO 
query_for_intersect_union(choice,temp_table1,temp_table2,temp_table) 

char choice; 

char temp_table1 [20]; 

char temp. table2[20]; 

char temp table[20]; 

| 


choice = ’?’; 
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сіг ѕсг(); 
while (choice != ’0’) 
| 


choice = intersect_union_menu(choice);/* print the choice for user select on screen 


E/ 
switch(choice) /* User select case */ 
( 
сазе 71”: /* create table */ 
clr_scr(); 


printf(‘\nYour Selection is INTERSECT"); 
print£(^nHit Return to continue! (Any other key to QUIT!)"); 
if (getchar() !2 ^n") 
| 
getchar(); /* To let next getchar() work well */ 
break; 
| 
get temp table names for intersection(temp tablel, temp_table2, 
temp table); 
printf(^n*** The result of the INTERSECTION will be kept in 
temp_table*** %s ***\n", temp_table); 
intersect tables(temp tablel, temp table2, temp table); 
ql printdata(temp table); 
break; 
case '2' : 
clr_scr(); 
printf("\nYour Selection is UNION"); 
printf(^nHit Return to continue! (Any other key to QUIT!)"); 
if (getchar() != ^п’) 
( 
getchar(); /* To let next getchar() work well */ 
break; 
| 
get_temp_table_names_for_intersection(temp_tablel, temp_table2, 
temp_table); 
printf(^n*** The result of the UNION will be kept in temp_table*** %s 
*n»". temp table); 
union tables for demo(temp tablel, temp table2, temp table); 
ql printdata(temp table); 
break; 
case 73”: /* create table */ 
clr_scr(); 
printf(^nYour Selection is MINUS"); 
printf(^nHit Return to continue! (Any other key to QUIT!)"); 
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if (getchar() != ^а’) 
| 
getchar(); /* To let next getchar() work well */ 
break; 
| 


get temp table names for intersection(temp tablel, temp_table2, 


temp table); 


printf£(^n*** The result of the MINUS will be kept in temp table*** 45s 


*'*Sn", temp table); 


) 


minus(temp tablel, temp table2, temp table); 
ql printdata(temp table); 
break; 


case 'O' : 
clr. scr(); 
printf(^nHit Return to continue! (Any other key to QUIT!)"); 
if (getchar() !2 ^n") 
| 
getchar(); /* To let next getchar() work well */ 
break; 
| 
break; 
) /* End of switch */ 


) /* End of while choice !2 '0' */ 
return(choice); 

retum(temp table1); 

return(temp table2); 

return(temp table); 


fF e 2e О Е Ae 


This function displays the Retrieval operations menu 
ЖЖК ЖК ЖЖК КК КЕ КК КИН M d 


char show utility menu(answer) 
char answer; 


| 


answer = '?'; 


/* 


while (!( '0'«2 answer && answer «- ’4’)) 


(*/ 


clr_scr(); 
printf("\n\tRetrieval Operations Menu\n"); 














printf(‘\n\t0. Simple Condition"); 
printf(“\nNt1. tablel where EXISTS table2"); 
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printf(‘\n\t2. tablel where NOT EXISTS table2"); 
printf(‘\n\t3. tablel IN table2"); 
printf("\n\t4. tablel NOT IN table2"); 
рпп(“мамч======——====================\п"); 
рг (“Маїчбе1есї уоиг сһоїсе :: "); 
answer = getchar(); 
while ((c = getchar()) != ^n") 
; /* Not return do nothing */ 

um */ 


return (answer); 











РИК жиа же ка кк ЖЖЖ КЖ Ж ЖЖЖ ЖЖЖ С 


Ths function calls the function show_utility_menu and calls other functions to process the 
user’s choice. 

AAI kokk kkk / 

utility menu(choice,temp tablel,temp table2,temp table) 

char choice; 

char temp table1[20]; 

char temp table2[20]; 

char temp table[20]; 

| 


choice = ’?’; 
clr_scr(); 
/* while (choice != ’0’) 

{ */ 
choice = show_utility_menu(choice);/* print the choice for user select on screen */ 
switch(choice) /* User select case */ 
| 

сазе 717: /* create table */ 


clr. scr(); 
printf("\nYour Selection is tablel where EXISTS table2"); 
printf(^nHit Return to continue! (Any other key to QUIT!)"); 
if (getchar() != ^п’) 
| 
getchar(); /* To let next getchar() work well */ 
break; 
) 
printf(^nEnter the temp table name related to EXISTS :"); 
gets(buff); 
strcpy(temp table2, buff); 
init buffer(buff,100); 


193 


рїшї(\аР1еазе enter your join condition\nbetween "); 
if (m==1) 
printf("%s and ", temp_table1); 
if (m>1) 
printf("the appropriate table and "); 
printf("** 96s ** :", temp table2); 
gets(buff); 
strcpy(join for nested, buff); 
init buffer(buff,100); 
break; 
case '2': 
clr. scr(); 
printf(^nYour Selection is tablel where NOT EXISTS table2"); 
printf(‘\nHit Return to continue! (Any other key to QUIT!)"); 
if (getchar() !- ^n") 
( 
getchar(); /* To let next getchar() work well */ 
break; 
| 
printf(‘\nEnter the temp table name related to NOT EXISTS :"); 
gets(buff); 
strcpy(temp_table2, buff); 
init buffer(buff,100); 
printf("\nPlease enter your join condition\nbetween "); 
if (m==1) 
printf("%s and ", temp_table1); 
if (m>1) 
printf("the appropriate table and "); 
printf("** 96s ** ;", temp table2); 
gets(buff); 
strcpy(join for nested, buff); 
init buffer(buff,100); 
break; 
case '3': 
clr_scr(); 
printfí(^nYour Selection is tablel IN table2"); 
printí(^nHit Return to continue! (Any other key to QUIT!)"); 
if (getchar() != ^п’) 
| 
getchar(); /* To let next getchar() work well */ 
break; 
| 


printf(\nEnter the temp table name related to IN :"); 
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gets(buff); 
strcpy(temp_table2, buff); 
init buffer(buff,100); 


printf(‘\n\nEnter attribute for "); 
if (m==1) 
printf("table os", temp_table1),; 
if (m>1) 

printf("the appropriate table"); 
printf(" for condition of IN :"); 
gets(buff); 
strcpy(condition for nested, buff); 
init buffer(buff,100); 


printf(‘\n\nTable ** %s **", temp_table2), 
printff(^nSELECT ATTRIBUTE (only one attribute!) :"); 
gets(buff); 
strcpy(attribute_for_nested, buff); 
init_buffer(buff,100); 
break; 
сазе '4': 
clr_scr(); 
printf(^nYour Selection is table1l NOT IN table2"); 
printf(^nHit Return to continue! (Any other key to QUIT!)"); 
if (getchar() !2 ^n") 
| 
getchar(); /* To let next getchar() work well */ 
break; 
) 
printf(^nEnter the temp table name related to МОТ ІМ :"); 
gets(buff); 
strcpy(temp table2, buff); 
init buffer(buff,100); 


printf(\n\nEnter attribute for "); 
if (m==1) 
printf("table 96s", temp_table1); 
if (m>1) 

printf("the appropriate table"); 
printf(" for condition of NOT IN :"); 
gets(buff); 
strcpy(condition for nested, buff); 
init buffer(buff,100); 
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printf(‘\n\nTable ** %s **", temp_table2); 
printf(nSELECT ATTRIBUTE (only one attribute!) :"); 
gets(buff); 
strcpy(attribute for nested, buff); 
init buffer(buff,100); 
break; 
case ’0’: 
clr_scr(); 
printf("\nYour Selection is NORMAL RETRIEVAL"); 
printí(^nHit Return to continue! (Any other key to QUIT!)"); 
if (getchar() != ^п’) 
| 
getchar(); /* To let next getchar() work well */ 
break; 
) 
break; 
) /* End of switch */ 
/* }*/ /* End of while choice != ’0’ */ 


return(choice); 
return(temp_table1); 
return(temp_table2); 
return(temp_table); 
он а 
This function checks if any attributes with aggregate functions exist in the attributes 
entered by the user. 
ЖЖЖ КАК а a as Ae oe h E ЕТИУ 
char check_aggregate(buffer, tmp, aggregate_found) 
char buffer[13], 
char tmp[3]; 
| 
int i = 0; 
int jj = 0; 
for (jj=0;jj<3;jj++) 
if (buffer[1]2-40)( 
/* tmp[jjJ=0';*/ 
jj=1000; 
| 
else { 
tmp[jj]-buffer[1]; 
| 
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i++; 
} /* end for jj < 3 */ 
tmp[3]2 V) '; 
i f 
((stremp(tmp,"cnt")—-0)ll(strcmp(tmp, "sum")——-0)ll(strcmp(tmp,"avg")--0)ll(strcemp(tmp 
, min")—-0)ll(stremp(tmp,"max")—-0))( 
aggregate found-TRUE; 


return(aggregate found); 
) 


фас ыы ыы ыы ыы ыы ako kokk 


When there is an aggregate function among the attributes entered by the user, this 
function separates the attribute from the aggregate part. 

SIG III III IITA 

char get_attribute(buffer, attribute) 

char buffer[ 13]; 

char attribute[13]; 


| 


int i = 4; 
int J; 
for (j=0:j<13;j++){ 
if (buffer(1J==41){ 
attribute[j]- ^9"; 
j7100; 
) 
else{ 


attribute[j]-buffer[i]; 
) 
1=ї+1; 
) /* end for j « 13 */ 
retum(attribute); 


Баета кин Be ee Be ea ae Re ee Me Se He ae te Me He ee Se He He he He He He 


When mod is modify mode (MOD MODE) this function is the main function calling 
other other functions to delete the tuples from the related media tables. 
ELLE NOE teo КЕ ЕК Ж жж «/ 
void delete_for_modify(r) 
int r; 
| 
int j=0,k=0,1=0,temp; 
char char. value[21],a; 
char file name[20]; 
int integer value,media value,found,medial value; 


197 


int im value, so value; 
int desired, tuple; 
float real value; 
int i=0,select=0; 
int c=0; 
desired_tuple=r; 
printf('\nTuple # %d is being deleted now ...", desired_tuple+1); 
sleep(2); 
/* 3t line 3169 "db.sc" */ /* select */ 
| 
IIsgInit((char *)0); 
IIwritedb(" retrieve unique(c-(count("); 
IIwritedb(temp table); 
IIwritedb("."); 
IIwritedb(satt[0].a name); 
Ilwritedb(")))"); 
IIsqRinit((char *)0); 
if (Ilerrtest() — 0) ( 
if (IInextget() !2 0) { 
Ilretdom(1,30,4,&c); 
) /* IInextget */ 
IlsgFlush((char *)0); 
) /* IIerrtest */ 
| 
1=0; 
if (c==0) | 
printf("\nPress ENTER to continue..."); 
a=getchar(); 
retum; 
) /хжжжжжжжж/ 
/* € line 3171 "db.sc" */ — /* host code */ 
if (IIcsrOpen((char *)0,"cursor output","db1",0,temp table) !- 0) | 
IIwritedb( retrieve ("); 
for (select20;select«n-1;select-) ( 
IIwritedb(satt[select].a name); 
Iwritedb("="); 
IIwritedb(temp table); 
Iwritedb("."); 
IIwritedb(satt(select].a name); 
IIwritedb(","); 
| 
IIwritedb(satt[select].a name); 
IIwritedb("z"); 
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IIwritedb(temp table); 
IIwritedb("."); 
IIwritedb(satt(select].a name); 
IIwritedb(")"); 
IIcsrQuery((char *)0); 
) /* ПсѕгОреп */ 
printf('N\n"); 
look_more=0; 
1=0; 
if (c==0) { 
look_more=1; 
| 
/* Fetch the cursor to the temp tablerelation which is the intermediate table 
hold the temp tablefrom the query, then print out the tuple one at a time unti] no 
more record to print to the user */ 
while (look more — 0) | 
if (IcsrFetch((char *)O,"cursor output","db1") !2 0) ( 
if (desired tuple == 1){ 
printf("record id %d \t" +1); 
) 
for (i=0;i<n;i++) { 
if (strcmp(satt[i].data_type,"c20")==0) { 
IicsrRet(1,32,0,char_value); 
if (desired_tuple == 1) 
printf("%s : %s",satt[i].a_name,char_value); 
| 
if (stremp(satt[i].data type," integer" )——0) ( 
IIcsrRet(1,30,4, &integer value); 
if (desired tuple — 1) 
printf("%s : %d ",satt[i].a_name,integer_value); 
| 
if (strcmp(satt[i].data_type,"float")==0) { 
IcsrRet(1,31,4,&real_value); 
if (desired_tuple == 1) 
printf("%s : %8.2f ",satt[i].a_name,real_value); 
| 
if (stremp(satt[1].data type,"image")—-0) { 
IlcsrRet(1,30,4,& media value); 
if (desired tuple —— 1)( 
im value-media value; 
printf("%s id is %d_ ",satt[i].a_name,media_value); 


) 
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if (strcmp(satt[i]}.data_type,"sound")==0) { 
IlcsrRet(1,30,4,&medial. value); 
if (desired_tuple == 1){ 
so_value=medial_value; 
printf("%s Yd" ,satt[i].a_name,medial_value); 
| 

) 


) /* end for select < n*/ 
printf(^n^); 
IIcsrEFetch((char *)0); /* fetch the next record to the cursor */ 
1++; /* increment l as the counter */ 
if (l==c) { /* check if no more data to print */ 
look more =1; /* exit of the loop */ 
| 
) /* IIcsrFetch */ 
) /* end while */ 
IIcsrClose((char *)O,"cursor. output" ,"db1"); /* close the cursor */ 
printf("Press ENTER to continue .."); 
a- getchar(); 
/* this for the check for the media selection */ 
if (c==0) 
i=9999; /* if no record for the media data not process any thing */ 
for (1=0;1<n;i++) { 
if (strcmp(satt[i].data type,"image")—-0) { 
if (unage_flag==TRUE) { 
strcpy(table array[table index].table name, satt[i].t_name); 
found 2 check table name(); /* search for the media name */ 
table cursor - table entry; 
strcpy(media name,satt[i].a name); 
get media name(); 
printí(^nThe media data from the media table *** %5 *** is being deleted 
now...", media name); 
sleep(4); 
mod get rid image(i, im value); 
| 
| 
if (strcmp(satt[i].data type," sound")2-0) ( 
if (sound flag--TRUE)( 
strcpy(table array[table index].table name, satt[1].( name); 
found - check table пате(); 
table cursor - table entry; 
strcpy(media name,satt[i].à name); 
get media пате(); 
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printf("nThe media data from the media table *** %s *** is being deleted 
now...', media name), 
sleep(4); 
mod get rid sound(i, so value); 
| 
) /* end for select « n*/ 
printf( ^n"); 


КОО Ulf Xe cf eoe fe fe ke se sje ke e ЖЖ ЖК ЖЖЖ ЕЖ ЖЖЖ 


When mode is MODIFY , this function gets sound file attributes from the related media 
table. 
BELLE opio ж жж ЖЖЖ ЖЖ ЖА ЕЕ Ж / 
get_snd_file_atts(media_name, 1, value) 
STR_name media_name; 
int 1; 
int value; 
( 
int entry; 
char sound value[20]; 


int att. cursor; 
int desired tupleno; 
char query. phrase([DESCRLEN- 1], 
in phrase([ DESCRLEN- 1]; 
int j=0, k, c, pid, query err, query len, in Іеп, Ғ Пар оок тоге=0; 


char ISfnS(FILENAMELEN 1]; 
char ISdescr1[DESCRLEN+1]; 
int ISerror; 

STR, path file name; 

STR descrp nothing; 

char temp, file[100]; /* Declare more to avoid bus error */ 
int Show pid, wait pid; 

union wait status; 

int sid = 0; 

int pp=0; 

int qq=0; 

int res=0; 

int sz=0; 

int s_rate=0; 

int enc; 
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int dur=0; 


inttostr(value, sound_value); 


| 


) 


| 


IIsgInit ((char *)0); 
IIwritedb("retrieve unique(pp-(count("); 
IIwritedb(temp table); 
IIwritedb("."); 
IIwritedb(satt[1].a name); 
IIwritedb(")))"); 
IIsqRinit((char *)0); 
if (Ilerrtest()==0) { 
if (IInextget() !=0) | 
IIretdom(1,30,4,& pp); 
) 
IIsqFlush((char *)0); 
| 


if (IlcsrOpen((char *)0,"cursor output8","db3",0,media name) !- 0) | 
IIwritedb("retrieve(ISfn5-"); 
IIwritedb(media name); 
IIwritedb("."); 
Iwritedb("f_id,ISdescr1="); 
IIwritedb(media, name); 
IIwritedb(".descrp,"); 


IIwritedb(" res-"); 
IIwritedb(media name); 
IIwritedb("."); 
IIwritedb(" resolution, "); 


IIwritedb("sz-"); 
IIwritedb(media name), 
IIwritedb("."); 
IIwritedb("size,"); 


IIwritedb("s rate-"); 


IIwritedb(media. name); 
IIwritedb("."); 
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IIwritedb("samp rate,"); 


IIwritedb( "encz"); 
IIwritedb(media name); 
IIwritedb("."); 
IIwritedb( encoding, "); 


IIwritedb(" sidz"); 
IIwritedb(media name); 
IIwritedb("."); 
IIwritedb("s id,"); 


Iwritedb("dur="); 
IIwritedb(media name); 
IIwritedb("."); 
IIwritedb(" duration"); 


IIwritedb(")"); 
IIwritedb(" where "); 
IIwritedb(media name), 
Iwritedb(".s_id="); 
IIwritedb(sound value); 
IicsrQuery ((char *)0); 


r- 
while (look_more==0) { 


if (UcsrFetch((char *)0, "cursor output8","db3") !2 0) ( 


IIcsrRet(1,32,0,IS fn5); 
IIcsrRet(1,32,0,ISdescr1); 
IIcsrRet(1,30,4,& res); 
IIcsrRet(1,30,4,& sz); 
IIcsrRet(1,30,4,&s rate); 
IIcsrRet(1,30,4,&enc); 
IIcsrRet(1,30,4,& sid); 
IIcsrRet(1,30,4, & dur); 


strcpy(file name, ISfn5); 

strcpy(snd record[snd index].f id, file name); 
strcpy(descrp, ISdescr1); 

strcpy(snd record[snd index].descrp, descrp); 
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snd_record[snd_index].resolution = res; 
snd record[snd index].size = sz; 

snd record[snd index].samp rate - 5 rate; 
snd record[snd index].encoding = enc; 
snd record[snd index].s id = sid; 

snd record[snd index].duration - dur; 


snd value[snd, index ]-snd record[snd index].s id;/*-------*/ 
att array|att, cursor].value entry-snd index; 


printf(^n^); 
IIcsrEFetch((char *)0); 
99++; 
if (qq==pp) { 
look_more = 1; 
| 
| 
| 
IIcsrClose((char *)O,"cursor output8","db3"); 
| 


init buffer(sound value, 20); 


ЕЖ КК ЕЕЕ ЕКИ КК жаа к жн 


When mode is MODIFY, this function gets the image file atts from the related media 
table. 
ЖЕК КЕ ККЖ КЖ Ка Жк алат а КА Y 
get file id(media name, i, value) 
STR name media name; 
int i; 
int value; 
| 
int entry; 
int att_cursor; 
int desired_tupleno; 
int k=0, j=0, look_more=0; 
char ISfnl [FILENAMELENT- 1]; 
char ISdescr1 [DESCRLEN- 1]; 


char image value[20]; 


int hght = 0; 
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int wdth = 0; 
int dpth = 0; 
int iid = 0; 


STR_path f_name; 

STR_descrp nothing; 

char temp file[100]; /* Declare more to avoid bus error */ 

struct pixrect *pr; 

colormap t cm; 

int Show. pid, wait pid; 

union wait status; 

int over_length = TRUE; /* Initialize to true */ 

cm.type = RMT_NONE; /* this is absolutely necessary! Otherwise — */ 


cm.length = Q; /* pr_load_colormap might not allocate storage */ 
cm.map[0] = NULL; /* for the colormap, if the garbage found in */ 
cm.map[1] = NULL; /* the cm structure seems to make sense. The  */ 
cm.map[2] = NULL; /* result, of course, is segmentation fault. */ 


inttostr(value, image value); 
| 
IIsgInit ((char *)0); 
IIwritedb(" retrieve unique(k-(count("); 
IIwritedb(media name); 
IIwritedb("."); 
IIwritedb("i id"); 
IIwritedb(")))"), 
IIsqRinit((char *)0); 
if (errtest()==0) { 
if (Iinextget() !=0) { 
Iretdom(1 ,30,4,&k); 
| 
IIsqFlush((char *)0); 
) 
| 


( 
if (IIcsrOpen((char *)0,"cursor_output1"”,"db",0,media_name) != 0) { 
IIwritedb("retrieve(ISfn1z"); 
IIwritedb(media name), 
IIwritedb("."); 
Uwritedb("f_id,ISdescr1="); 
IIwritedb(media name), 
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IIwritedb(" .descrp,"); 


IIwritedb("hghtz"); 
IIwritedb(media name); 
IIwritedb("."); 
IIwritedb("height,"); 


Iwritedb("iid="); 
IIwritedb(media name); 
Iwritedb("."); 
IIwritedb("i id,"); 


IIwritedb("wdthz"); 
IIwritedb(media name); 
IIwritedb("."); 
IIwritedb(" width,"); 


IIwritedb("dpthz^); 
IIwritedb(media name); 
IIwritedb("."); 
IIwritedb(" depth"); 


IIwritedb(")"); 
IIwritedb(" where "); 
IIwritedb(media name); 
IIwritedb("."); 
IIwritedb("i id"); 
Iwritedb("="); 
IIwritedb(image value); 
IlcsrQuery ((char *)0); 


while (look_more==0) { 


if (IicsrFetch((char *)0, “cursor_output1","db") != 0) { 


IicsrRet(1,32,0,JSfn1); 
IIcsrRet(1,32,0,ISdescr1); 


IIcsrRet(1,30,4, &hght); 


IIcsrRet(1,30,4,&iid); 


IIcsrRet(1,30,4 ,& wdth); 
IIcsrRet(1,30,4,& dpth); 
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strcpy(f_name, ISfn1); 

strcpy(img record[img index].f id, f name); 
strcpy(descrp, ISdescr1); 

strcpy(img record[img index].descrp, descrp); 
img_record[img_index].height = hght; 

img record|img, index].i id = iid; 

img. record[img index].width — w«dth; 
img_record|img_index].depth = dpth; 

MUN SS S ses */ 
img_value[img_index]=img_record[img_index].1_1d; 
att array[att, cursor].value entry-img index; 


printf( ^n"); 
IlcsrEFetch((char *)0); 
j++; 
if (j==k) { 
look_more = 1; 
| 
| 
| 
IIcsrClose((char *)0,"cursor_output1","db"); 
| 
/* printf("\nimg_record[img_index].i_id =>%d" ,img_record[img_index].i_id); 
printf(^nimg record[img index].f id 2»96s",img record[img index].f id); 
printf(^nimg record[img index].descrp —»426s",;img record[img. index].descrp); 
sleep(1);*/ 
init buffer(image value, 20); 
РО LA зый... 
When mode is modify, this function helps user modify the tuples in the result table one 
by one. 
MEME onde crt ttiam; 
process tuple by, tuple(r) 
int r; 
• 
int entry; 
int desired_tuple; 
char c_temp[60]; 
int count=0; 
int j=0,k=0,1=0,temp; 
char char. value[21],a; 
char file name[20]; 
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int img value, snd value; 
int integer value,media value,found,medial value; 
float real value; 
int i=0,select=0; 
int g=0; 
int d; 
i_value[i_index]=0; 
desired_tuple=r; 
printf(‘\nTuple to be modified :: Tuple # %d ", desired_tuple+1); 
sleep(3); 
/* # line 3169 "db.sc" */ /* select */ 
( 
IIsgInit((char *)0); 
IIwritedb("retrieve(g-(count("); 
Ilwritedb(temp table); 
IIwritedb("."); 
IIwritedb(satt[0].a name); 
II writedb(")))"); 
IIsqRinit((char *)0); 
if (Ilerrtest() == 0) { 
if (IInextget() != 0) | 
Ilretdom(1 ,30,4,ég); 
) /* Ilnextget */ 
IIsqFlush((char *)0); 
) /* Ilerrtest */ 
) 
[= 
if (g==0) { 
printf("\nPress ENTER to continue..."); 
a-getchar(); 
retum; 
| 
/* 8 line 3171 "db.sc" */ /* host code */ 
if (IlcsrOpen((char *)0,"cursor output","db2",0,temp table) !— 0) ( 
IIwritedb("retrieve("); 
for (select=0;select<n-1;select++) { 
lIwritedb(satt[select].a name); 
Iwritedb("="); 
IIwritedb(temp table); 
IIwritedb("."); 
IIwritedb(satt[select].a name); 
IIwritedb(" ,"); 


) 
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IIwritedb(satt[select].a name); 
Iwritedb("="); 
IIwritedb(temp table); 
IIwritedb("."); 
IIwritedb(satt[select].a name); 
Iwritedb(")"); 
IIcsrQuery((char *)0); 
) /* ПсѕгОреп */ 
printf(^n"); 
look_more=0; 
1=0; 
if (g——0) | 
look more-1; 
| 
table cursor - table entry; 
count=0; 
count = table_array[table_list[table_cursor]].att_count; 
att_cursor = table_array[table_list[table_cursor]].att_entry; 
act_media_count = 0; 
i_index=0; 
c_index=0; 
/* Fetch the cursor to the result relation which is the intermediate table 
hold the result from the query, then print out the tuple one at a time 
until no more record to print to the user */ 


while (look_more == 0) ( 
if (IIcsrFetch((char *)0,"cursor_output" ,"db2") != 0) ( 
if (desired_tuple == 1)({ 
printf("record id %d \t"1+1); 
| 
for (i=0;1<n;1++) | 
if (strcmp(satt[i].data_type,"c20")==0) { 
IIcsrRet(1,32,0,char. value); 
if (desired tuple —- І)( 
printf("os : 96s",satt[i].a name,char value); 
strcpy(c temp, char, value); 
strcpy(c value[c index], c temp); 
att array[att cursor].value entry - c index; 
c index - (c index + 1) % 20; 
att cursor - att, array[att cursor].next index; 
| 
if (strcmp(satt[i].data_type," integer" )==0) { 
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IIcsrRet(1,30,4,&integer value); 
if (desired tuple == 1)( 
printf("?os : 96d ",att[i].a name,integer value); 
i value[i index]2-integer value; 
att array[att cursor].value entry - i index; 
i index - (1 index + 1) % 20; 
att cursor — att array[att cursor].next index; 
) 
| 
if (strcemp(satt[i].data type," float")—0) ( 
IicsrRet(1,31,4,& real value); 
if (desired tuple == 1){ 
printf("%s : %8.2f ",satt[i].a name,real value); 
) 
) 
if (strcmp(satt[i].data_type,"image")==0) { 
IIcsrRet(1,30,4,& media, value); 
if (desired_tuple == 1){ 
img_value=media_value; 
printf("%s id is %d_ ",satt[i].a_name,media_value); 
| 
) 
if (strcmp(satt[i].data_type,"sound")==0) | 
IIcsrRet(1,30,4,& medial value); 
if (desired_tuple == 1){ 
snd_value=medial_value; 
printf("%s %d",satt[i].a_name,media1_value); 
| 
) 


)/*end for select n*/ 
printf( ^n"); 
IcsrEFetch((char *)0); /* fetch the next record to the cursor */ 


]HH--; /* increment 1] as the counter */ 


if (Ig) ( /* check if no more data to print */ 
look_more =1; /* exit of the loop */ 


) /* IlcsrFetch */ 
) /* end while */ 


licsrClose((char *)0,"cursor_output","db2"); /* close the cursor */ 


printf("Press ENTER to continue .."); 
a- getchar(); 
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for (i=0;i<n;i++) { 

if (strcmp(satt[i].data_type, "image" )==0) | 
strcpy(table array[table index].table name, satt[i].t name); 
found = check table name(); /* search for the media name */ 
table cursor = table entry; 
strcpy(media name,satt[i].a name); 
get media name(); 
printf( "The attribute values will be read from the media table 76s", media name); 
sleep(2); 
get file id(media name, i, img value); 
printf("Press ENTER to continue .."); 
a= getchar(); 
att_cursor = att_array[att_cursor].next_index; 
media_counter++; 
media_value=0;/*-------------- М 

) 

if (strcmp(satt[i].data_type, sound")==0) { 
strcpy(table_array[table_index].table_name, satt[i].t_name); 
found = check_table_name(); 
table_cursor = table_entry; 
strcpy(media name,satt[i].a name); 
get media name(); 
printf( The attribute values will be read from the media table 96s", media name); 
sleep(2); 
get snd file atts(media name, i, snd value), 
printf("Press ENTER to continue .."); 
a- getchar(); 
att cursor — att array[att cursor].next index; 
media counter-4-t; 
medial value-0;/*-------------- ж/ 


) /* end for select « n*/ 


) 


ОККА ЕКж к жн ЖЖЖ ЖЖЖ ЖЖЖ ЖК Ж ЖАЖА Me Ae Ae ae ae f se se teo 


When mode is MODIFY, this function prints the number of tuples in the result table. 
БКО en RAN RA Ae RH ЖЖЖ ЖКК He He He HE Me He ee He He a he Ne eK He 7 


int print_for_modify(c) 

int C; 

{ 
с-0; 
/* # line 3169 "db.sc" *//* select */ 
( 
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IIsqInit((char *)0); 
Iwritedb("retrieve(c=(count("); 
IIwritedb(temp_table); 
IIwritedb("."); 
IIwritedb(satt[0].a name); 
IIwritedb( )))"); 
IIsqRinit((char *)0); 
if (IIerrtest() 2- 0) { 
if (IInextget() != 0) | 
Ilretdom(1 ,30,4,&c); 
) /* Iinextget */ 
IIsqFlush((char *)0); 
) /* Ilerrtest */ 
) 
printf(‘\n*** THERE ARE %d RECORDS (TUPLES) TO BE MODIFIED ***" c); 
printf(‘\n(You will be queried for modifying each tuple)"); 
sleep(3); 
return(c); 


рент нк лика 


When mode is modify, this function deletes the modified tuples from the tables. 
жалакы 
void delete_formatted_part_for_modify() 
| 
int 1; 
printf(‘\nThe tuples that match the delete query are being deleted from table *** %s *** 
now" satt[0].t name); 
printf("\nPress ENTER to continue"); 
a=getchar(); 
IIsqInit((char *)0); 
IIwritedb(" delete "); 
IIwritedb(satt[0].t name); 
IIwritedb(" where "); 
for (i20; 1«n-1; 1++){ 
IIwritedb(satt[0].t name); 
IIwritedb("."); 
IIwritedb(satt[1].a name); 
IIwritedb("="); 
IIwritedb(temp table); 
IIwritedb("."); 
IIwritedb(satt(1].a name); 
IIwritedb(" and "); 
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IIwritedb(satt[0].t name); 
IIwritedb("."); 
Ilwritedb(satt[1].a name), 
IIwritedb("-"); 
Ilwritedb(temp table); 
IIwritedb("."); 
IIwritedb(satt[1].a name); 


IIwritedb(" "); 
UsqSync(1,(char *)0); 
| 


РЕК ЖЕЖ КЖ ЖА Me fe Ae He ae ahe ahe Ae Ae he Me ae ЖЖЖ 


This function, when mode is DELETE, deletes the modified tuples from the related media 
oom Tou rm m ЙН ИИИ 
get rid image(imageno) 
int imageno; 
( 

IisqInit((char *)0); 

Ilwritedb(''delete "); 

IIwritedb(media name), 

IIwritedb(" where "); 

IIwritedb(media, name); 

IIwritedb("."); 

Ilwritedb("i id ="); 

llwritedb(temp table); 

IIwritedb("."); 

Ilwritedb(satt[(imageno].a name); 

IIwritedb(" "); 

IIsqSync(1,(char *)0); 
) 


ук oj oe se se he she КККК ккк 


This function, when mode is MODIFY, deletes the modified tuples from the related media 
tables. 

тектен жакка ж жж жокка e hee ke de sede hee le se у 
mod get rid image(imageno, value) 

int umageno; 

int value; 


{ 
char media_value[20]; 
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inttostr(value, media, value); 

| 
IIsgInit((char *)0); 
IIwritedb(" delete "); 
IIwritedb(media name); 
IIwritedb(" where "); 
IIwritedb(media name), 
IIwritedb("."); 
IIwritedb("i id"); 
IIiwritedb("="); 
IIwritedb(media value); 
IIwritedb(" "); 
IIsqSync(1,(char *)0); 

| 


РЕКЕ ЕЕЕ к Ж ЖК ККЖ жак к на а НТ ЖЫЛДАН 


This function, when mode is DELETE, deletes the modified tuples from the related media 
tables. 

FEA ЖЖЖ жж жж жж жж жж жж жж жж жж Жжжж Жжжж жж жж Жжжж жж жж жж ж / 
get_rid_sound(soundno) 

int soundno; 


| 


IIsqInit((char *)0); 
IIwritedb(" delete "); 
IIwritedb(media name), 
IIwritedb(" where "); 
IIwritedb(media пате); 
IIwritedb("."); 
IIwritedb("s id ="); 
IIwritedb(temp table); 
IIwritedb("."); 
IIwritedb(satt[soundno].a. name); 
IIwritedb(" "); 
IIsqSync(1,(char *)0); 


) 
] 


рамка тт кетке к аккан 


This function, when mode is MODIFY, deletes the modified tuples from the related media 


tables. 
жокка ЖС аа ae 
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mod_get_rid_sound(soundno, value) 
int soundno; 
int value; 
( 
char sound_value[20]; 
inttostr(value, sound value); 
( 
IIsgInit((char *)0); 
IIwritedb(" delete "); 
IIwritedb(media name); 
IIwritedb(" where "); 
IIwritedb(media name); 
IIwritedb("."); 
IIwritedb("s, id"); 
IIwritedb(" 2"); 
IIwritedb(sound value); 
IIwritedb(" "); 
IlsqSync(1,(char *)0); 
| 


РК Еж ЖИЕ ЖЖЖ ЕЖ ЖЖ 


When mode is DELETE, this functions is the main function calling other functions to 
delete the tuples from the related media tables. 
a E AE aie aie Ae eale ae sfe ahe sfe sfe she afe afe She He afe ahe ahe ale ahe sfe sfe ahe she se afe у 
void ql_print_delete_data() 
| 
int j=0,k=0,1=0,temp; 
char char. value[21],a; 
char file name[20]; 
int integer value,media value,found,medial value; 
float real value; 
int i=0,select=0; 
int c=0; 
/* # line 3169 "db.sc" */ /* select */ 
( 
IIsgInit((char *)0); 
IIwritedb( retrieve unique(c-(count("); 
IIwritedb(temp table); 
IIwritedb("."); 
IIwritedb(satt[0].a name); 
IIwritedb(")))); 
IIsqRinit((char *)0); 
if (Ilerrtest() — 0) ( 
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if (IInextget() !2 0) ( 
Ilretdom(1,30,4,& c); 
) /* IInextget */ 
IIsqFlush((char *)0); 
) /* Herrtest */ 


) 
120; 
printf(‘\nThere are %d records that match the DELETE query",c); 
if (c==0) { 
printf(^nPress ENTER to continue..."); 
a-getchar(); 
return; 
| 
/* # line 3171 “db.sc" */ — /* host code */ 
if (IcsrOpen((char *)0,"cursor output ,"db1",0,temp table) !— 0) { 
IIwritedb("retrieve ("); 
for (select=0;select<n-1;select++) { 
Ilwritedb(satt[select].a name); 
IIwritedb("-"); 
IIwritedb(temp table); 
IIwritedb("."); 
IIwritedb(satt(select].a name); 
IIwritedb(","); 
| 
IIwritedb(satt[select].a name); 
IIwritedb("2"); 
IIwritedb(temp table); 
IIwritedb("."); 
IIwritedb(satt[select].a name); 
lIwritedb(")"); 
IlcsrQuery((char *)0); 
) /* ПсзгОреп */ 
printf( ^n"); 
look more-0; 
120; 
if (c==0) { 
look_more=1; 


/* Fetch the cursor to the temp_tablerelation which is the intermediate table 
hold the temp tablefrom the query, then print out the tuple one at a time until no 
more record to print to the user */ 
while (look more == 0) { 
if (IIlcsrFetch((char *)0,"cursor output ","db1") ! 0) ( 
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printf("record id %d м" 1+1); 
for (i=0;i<n;i++) { 
if (strcmp(satt[1].data гуре, "с20")==0) { 
IcsrRet(1,32,0,char_value); 
printf("%s : %s",satt[i].a_name,char_value); 
if (stremp(satt[i].data_type, ‘integer’ )==0) | 
IIcsrRet(1,30,4,&integer value); 
printf("%s : 9od ",att[i].a name,integer value); 
) 
if (stremp(satt[i].data_type,"float")==0) | 
IlicsrRet(1,31,4,& real value); 
printf("7os : 908.2f ",att[i].a name,real value), 
) 
if (strcmp(satt[i].data_type,"image")==0) { 
IcsrRet(1,30,4,&media_value); 
printf("%s id is %d_ ",satt[i].a_name,media_value); 
if (strcmp(satt[i].data_type,"sound")==0) { 
licsrRet(1,30,4,&medial_value); 
printf("%s %d" satt[i].a_name,medial_value); 
} 
} /* end for select < n*/ 
printf("Nn"); 
licsrEFetch((char *)0); /* fetch the next record to the cursor */ 
1++; /* increment l as the counter */ 
if (I-—c) ( /* check if no more data to print */ 
look more -1; /* exit of the loop */ 
) 
} /* IlcsrFetch */ 
} /* end while */ 
IIcsrClose((char *)0,"cursor output","db1"); /* close the cursor */ 
printf("Press ENTER to continue .."); 
/* stop before change to the next function so 
the user can see the temp. tableon screen, until he hit ENTER key */ 
a- getchar(); 
/* this for the check for the media selection */ 
if (c==0) 
i=9999; /* if no record for the media data not process any thing */ 
for (1=0;1<n;1++) ( 
if (stremp(satt[i].data type," image")—-0) ( 
if (image flag--TRUE)| 
strcpy(table array[table index].table name, satt[i].: name); 
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found = check_table_name(); /* search for the media name */ 
table_cursor = table_entry; 
strcpy(media name,satt[1].a name); 
get media name(); 
printf("nmedia name--» ***45s***". media name); 
sleep(2); 
get rid image(1); 
) 
| 
if (stremp(satt[i].data, type," sound")2-0) ( 
if (sound flagz-- TRUE)( 
strcpy(table array[table index].table name, satt[1].t name); 
found 2 check table name(); 
table cursor - table entry; 
strcpy(media, name,satt[i]J.a name); 
get media name(); 
printf(^nmedia name--» ***95s***". media name); 
sleep(2); 
get rid sound(1); 
| 
| 
) /* end for select « n*/ 
printf( ^n"); 
) 


[Sek khe he e e se ke he he he che ce he de je he eoe oe oe sje e bea abe e sje AA AHH Ж ЖАКЕ Жа c DNE 


When mode is MODIFY, this function checks the media desription if the media data is 
modifed. 
ЖЕЖ He He He He ke he sj dee he obe ke oj jeje hee de e be he je heb deje de he de beoe deo ЖЖЖ Ж alode opo A loot ooo 
int mod chk description(file id, descrp, err message) 
STR, path *file id; 
STR descrp *descrp; 
char *err message; 
( 
int i=0; 
int error = FALSE; 
while (i<1 && !error){ 
*err_message = 70”; 
if (stremp(descrp, " ") != 0) 
error = connect_parser(file_id, descrp, err_message); 
1++; 


if (error) 
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| 
print£(^nThe description for media is NOT acceptable!"); 


if (error 22 DESCR, WORD ERR) 
printf(^nThe system cannot understand the word »»?76s««", err message); 
else 
if (error -- DESCR, STRUCTURE ERR) 
printf(^nThe system cannot interpret the phase\n >>%s<<", 
err message); 
else 
printf(^nThe program error occurred in prolog!\n"); 
printf(^nPlease modify it. Thank you!"); 
putchar(^007"); 
while((c=getchar()) != ^п’) 


return(TRUE); 
| 
else 
returi(FALSE), 


ЕТКЕ ККЖ 


Gets all atts of a given table and puts them in satt array for retrieving all the attributes 
of that table. 
ЕРЕКЕ АЖ Жж жж he у 
void get_all_atts_of_a_given_table() 
| 
int i = 0, 
count - 0: 
count — table array[table list[table cursor]].att count; 
n = count; 
att cursor — table array[table list[table cursor]].att entry; 
for (i = 0; i < count; i++) /* Loop to get value for each attribute */ 
| 
strcpy(satt[1].t name, stab[0].t name); 
strcpy(satt[1].a name, att, array[att cursor].att name); 
strcpy(satt[i].data type, att array[att cursor].data type); 
att cursor — att array[att cursor].next index; 
) /* End of for loop */ 
) /* End of get tuple value */ 


ЕО Жако кн ЖК КИ НЕТКЕН ККЖ ККЖ Ж ЖАК Ж 
The main procedure for the retrieve operation 
m and n 15 the parameter for table and attribute repectively 
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For retrieve table name and attribute name from the user 
This function also handles DELETE and MODIFY operations 


жж ж же е ккк жж ISIS жк ж ЖА ЖЖЖ ЖЖЖ Ж Ж ЖЖЖ ЖЖ Ж жж 


void retrieve(mode) 
( 
int entry; 
int count; 
int h,r,flag=TRUE; 
int o, u; 
char buf0[13]; 
char buf1[13]; 
char buf2[13]; 
char buf3[13]; 
char buf4[13]; 
char temp[3]; 
char aggregate0[3]; 
char aggregate 1[3]; 
char aggregate2[3]; 
char aggregate3[3]; 
char aggregate4[3]; 
int i,j,x,y,z,found=0; 
int level_no=0, counter=1; 
char table_name[20],attname[20],att_type[20],Ans,More,a; 
char choice; 
init. buffer(buff,100); 
init buffer(temp table1,20); 
init buffer(temp  table2,20); 
init buffer(temp table,20); 
choice=’0’; 
m-0; 
і-0; 
k=0; 
gcond=0; 
numcon=0; 
aggregate found-FALSE; 
more selectionsz TRUE; 
more levels-TRUE; 


init(); 
drop temp. media tables(); 


while (more levels != FALSE)({ 
while (more selections !z FALSE) 
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init buffer(buff,100); 

printf('\nEnter table name to hold the temporary result of the query: "); 
gets(buff); 

strcpy(temp. table, buff); 

init buffer(buff,100); 


help tables(buff); 
while (i«-table count) (/* check loop with the maximum number table */ 
for (j=0;j<13;j++) /% each table has less than or equal to 12 char only */ 


if (buff[k]-—44) | 
stab[i].t name[j]- ^0"; 
j755; 
k=k+l1; 
і=1+1; 
| 
else | 
if (buff[k] 2 ' °) 
j=55; /* Skip the white space if the user typped in*/ 
else 
stab[i).t name[j]-buffTk]; 
if (buff[kj==0) ( /* if null value in buffer (end of string) */ 
mzitl; 
1-59; 
і-1000; 
| 


К=К+1; 


| 
) 
)/*end while*/ 


strcpy(temp tablel, stab[0].t name); 


for (1=0;1<m;i++) { 
strcpy(table_array[table_index].table_name, stab[i].t_name); 
found = check_table_name(); /* search for the media name */ 
if ('(found)) ( 
/* check for the valid table name 1f not found then retum to calling program */ 
putchar( 007); 


printí(^nTable 96s not found please redo again !!!" ,stab[1].t name); 
printf(^nPress ENTER to continue !!"); 
=getchar(); 
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retum; 
) /* end else */ 
} /* end for loop */ 


/* Specify the join condition if there are more than 2 table select */ 
help join(); 


/* Select attribute */ 
init buffer(buff,100); 


+ 


осо! 
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if (mode == RTRVE_MODE){ 
/* Select attribute for one table at a time */ 
for (y=0;y<m;y++) { 
printf(^nTable 96s ", stab[y].t name); 
strcpy(buff," ?"); 
while (strcmp(buff,"?")==0) { 
printf( Select the attribute(s) separated by comma <,> - <?> for HELP ! -\nhit 
<ESC> for no attribute"); 
printf('aSELECT ATTRIBUTE(S) : "); 
gets(buff); 
if (strcmp(buff,"?")==0) { 
p. att(stab[y].t. name); 
) /* end if buff — "?" */ 
) /* end while need help */ 


while (i « 100) | 
for (j20;j«13;j---)( 

if (buff[k]==27) { 
goto start_again; 
) 
if (buff[k]-—44) | 
bufO[j]- 70” 
strcpy(satt[x].t name, stab[y].t name); 
init buffer(temp,3); 
init. buffer(aggregate0,3); 
u-x, 
aggregate found-FALSE; 
aggregate found-check aggregate(bufÜ, temp, aggregate found); 
printf( ^n"); 


222 


strcpy(aggregateO, temp); 
if (aggregate found—- TRUE) 
get attribute(bufO, satt[u].a name); 
printf("\n"); 
if (strcmp(aggregate0, ‘cnt")==0) 
satt[u].aggregate type-l; 
if (strcemp(aggregateO," sum")—-0) 
satt[u].aggregate type-2; 
if (strcmp(aggregate0O, "avg" )—-0) 
satt[u].aggregate, type-3; 
if (strcemp(aggregateO," max" )—-0) 
satt[u].aggregate type-4; 
if (strcmp(aggregate0, min" )==0) 
satt[u].aggregate type-5; 
printf("\n"); 
| 
if (aggregate_found==FALSE){ 
strcpy(satt[u].a_name,buf0); 
satt[u].aggregate_type=0; 
printf("\n"); 
clr_scr(); 
| 
ј=55; 
К=К+1; 
1=1+1; 
х=х+1; 
else { 
if (buff[k] ==’ ’) 
j=55; /* Skip the white space if user typped in */ 
else { 


buf0[j]=buff[k); 


if (buff[k]==0) ( 
strcpy(satt[x].t name, stab[y].t name); 
init buffer(temp,3); 
init buffer(aggregate0,3); 
u-x; 
aggregate found-FALSE; 
aggregate found-check aggregate(bufO, temp, aggregate found); 
printfí(^n"); 
strcpy(aggregate0, temp); 
if (aggregate_found==TRUE){ 
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get_attribute(buf0, satt[u].a name); 
printf(^n"); 
if (strcmp(aggregate0, cnt")==0) 
satt[u].aggregate type-l; 
if (stremp(aggregate0, ‘sum")==0) 
satt[u].aggregate type-2; 
if (stremp(aggregate0, avg" )==0) 
satt[u].aggregate type-3; 
if (strcemp(aggregateO," max ")--0) 
satt[u].aggregate type-4; 
if (strcmp(aggregate0, min" )==0) 
satt[u].aggregate type-5; 
printf( ^n^); 
| 
if (aggregate found--FALSE)| 
strcpy(satt[u].a пате Би); 
satt[u].aggregate type-0; 
printf( ^n"); 
clr. scr(); 
| 


n=x+1; 
j=55; 
i=1000; 
) 
К=К+1; 
) /* end else */ 

) /* end for j « 13 */ 
)/*end while */ 
х=х+]; 

Start_again: 
k=0; 
init buffer(buff,100); 
і-0; 
) /* End select attribute for each table go to the next table */ 


clr. scr(); 
for (1=0;i<n;i++) { 
printf(\n%s.%s", satt[i].t_name,satt[i].a_name); 
getatttype(satt[i].t_name,satt[1].a_name,satt|i].data_type); 
| | 
} /* closure of if mod ==ret */ 
if ((mode--DEL MODE) ll (modez2MOD MODBP))I 


224 


table_cursor = table_entry; 
get all atts of a given table(); 


printf(^n"); 
сопа-0; 
printf(^nAny condition ? (у/п) :"); 
Ans-yes no answer(); 
if ((Ans==121)Il(Ans==89)) { 
choice-nested  processcondition(choice,temp tablel,temp. table2,temp. table); 


| 


if (choice==’0"){ 
ql retrieve(temp table); 
ql printdata(temp table); 
) 
init_buffer(buff,100); 


query for intersect union(choice,temp tablel,temp table2,temp table); 
printf(^nMore selections at this level ? (y/n)"); 
Ans-yes no answer(); 
if ((Ans==121 )il(Ans==89)) { 
more_selections=TRUE; 
choice=’0’; 

у = 0, 

j= 0; 

x= 0 

zu 

mz0; 

i=0; 

k=0; 

cond=0; 

gcond=0; 

пшпсоп-д0; 

n=0; 

found=0; 

init(); 
drop_temp_media_tables(); 
init_buffer( buff, 100); 
init_buffer(temp_table1 ,20); 
init_buffer(temp_table2,20); 
init_buffer(temp_table,20); 
} 
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else { 
more_selections=FALSE; 
printf(^n"); 
| 
| 
printf(\nMore levels ? (y/n)"); 
Ans=yes_no_answer(); 
if ((Ans==121)Il(Ans==89)) { 
more_levels=TRUE; 
more selectionsz TRUE; 
level_no=level_no+1; 
сһоісе- 0”; 
у-%; 
|-%; 
x = 0; 
zz (0: 
m=0; 
i=0; 
k=0; 
cond=0; 
gcond=0; 
numcon=0; 
п-0; 
init(); 
drop temp media, tables(); 
init buffer(buff,100); 
init buffer(temp table1,20); 
init buffer(temp table2,20); 
init buffer(temp table,20); 
found=0; 
| 
else{ 
more_selections=FALSE; 
more_levels=FALSE; 
| 


)/* end while more levels */ 


if (mode==DEL_MODE){ 

image_flag=TRUE; 

sound_flag=TRUE; 

printf(^nDo want to continue with DELETION ? (y/n) ::"); 
Ans=yes_no_answer(); 


if ((Ans--110)ll(Ansz-78)) 
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goto qquit; 
ql print delete data(); 
delete formatted part for modify(); 
drop table(temp table); 
image flag = FALSE; 
sound flag - FALSE; 
if (mode==MOD_MODE){ 
formatted_flag = FALSE; 
image_flag = FALSE; 
sound_flag = FALSE; 
h=print_for_modify(h); 
for (r=0; r<h; r++){ 
formatted_flag = FALSE; 
image_flag = FALSE; 
sound_flag = FALSE; 
media_counter = 0; 
process_tuple_by_tuple(r); 
mod display tuple(mode, media counter); 
store. data(mode); 
mod ql insert tuple(mode); 
att cursor - 0;/*to initialize the value arrays */ 
img_index = 0; 
snd_index = 0; 
1_index = 0; 
f index = 0; 
c_index = 0; 
delete_for_modify(r); 
delete_formatted_part_for_modify(); 
drop_table(temp_table); 
image_flag = FALSE; 
sound_flag = FALSE; 
| 
qquit: 
printf(‘Nn "); 
) /* End procedure */ 
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